
Dicembre 1983 - Sped. Abb. Post, grJII/70 - SuppL a Computer n 62 - Oislr Me. Re. Spa 


i sistemi Commodori 


Due regali eccezionali 


del programmatore 

Giochi e programmi 
per il VIC 








MON 





\fcrtefrn- 


\bbato 


La MEE^sctiisìvìstar 

per lltalia del $&¥ 

prodotti VERBATIM 

DATALIFE Vi WW r 

propone oltre 

alla più 

completa 

gamma di fik 

supporti 
magnetici anche 
armadi ignifughi p 

Rosengrens, nastri 
inchiostrati per tutte le 
stampanti, mobili e tavoli 
porta terminali per 
l'arredamento dei CED. 

Con i prodotti MEE 
le registrazioni dei Vostri dati 
non hanno più problemi di 
affidabilità. 


# ‘%sf Vi prega valer 

// inviare la vostra 
W & / completa 

t - J| documentazione 

relativa a: 

^ J Dischetti 

^ • - •• 

e inoltre 

. Disk-packs Lj Nastri inchiostrati 
Armadi ignifughi .. . Mobili per CED 


■ MEE - Memorie per Elaboratori Elettronici s.r.L 
Forniture per Centri Elaborazione Dati 
Sede Amm.va: 20144 Milano - Via Boni. 29 
Tel. 4988541 {4 linee r.a) 4986296 -4g84 196 
Filiali e Agenzie: Milano - Bergamo ■ Torino - 
Biella * Padova - Papiri a - Bologna - Firenze * Ancona - 
Roma ■ Napoli ■ Catania - Ori si ano ■ Bari • Genova - 
Bolzano - Mestre - 








Commodore 

a Roma 




P.le Asia, 21 -00144 ROMA EUR - Tel. (06) 5916438 


CENTRO REGIONALE di 
DISTRIBUZIONE, VENDITA, ASSISTENZA 


• Vie. 20 e accessori 

• Dischi Winchester (Commodore) :5, 8, 22, 30 MB 

• Backup su nastro magnetico 

• Sviluppo procedure personalizzate 

• Contratti di manutenzione per parti di ricambio 




ìmodore 











REMarks 


Edipo 

Può un computer imparare dai propri errori? 


Speciale Natale (1 

Un assembler per tutti i Commodore 


Didattica 

Imparare a programmare col VIC 
(7ma dispensa) 


Speciale Natale/2 

Maschera- memo del programmatore 


Un programma musicale 

Tastiera 


Guida ai videogames 

Il controllo del cursore 


Sistemi 

Ed ora passo al Pet 


Scrittura personalizzata 

Stampa in corsivo 


Guida mercato Commodore 


Come collaborare a Computer Club 


Commodore Computer Club - mensile indipendente per gli utenti di sistemi 
Commodore 

Direttore responsabile: Michele di Pisa 
Redazione: Alessandro De Simone 

Direzione, redazione: V.le Famagosta, 75 20U2 Milano - Tel 02 / 8467348 
Pubblicità; Milano - Micro Croce, Paola Bevilacqua, Gianluigi Ce ni u rolli, 

Tina Ronchetti, Villa Claudio - V ie Famagosta, 75 - 20142 Milano - Tel 02 1 8467348/9/40 

Prezzi e abbonamenti: Prezzo per una copia Lire 2,003 

Arretrati il doppio Abbonamento per dieci fascicoli lire 18,000 

Abbonamento annuo cumulativo alle riviste Compuler e Commodore Computer 

Club 8 a hlfa riservata agli studenti) L 34.303 . 1 versamenti vanno indirizzati a 

Minisystem - Italia s.r.1., mediante assegno bancario, vaglia o utilizzando il de postale n. 1 1909207, 

Composizioni: Mimsystem - Italia 

Selezioni: Qrg. A. G. 

Stampa: La Litografica srl - Busto A. 

Registrazione: Tribunale di Milano n, 2/13/1982 - Speci, in abb, post, gr, 

III n, 70 quale supplemento alla rivista Computer - Pubb. inferiore al 70% 





























Con i nuovi 
programmi italiani 
della Sirius Elettronica, 
Commodore 64 
serve proprio a tutto. 


Per tutti i possessori, anche fu- 
turi, del personal computer Com- 
modore 64 c'è un’importante novi- 
tà: la creazione di una vasta serie di 
nuovi programmi realizzati espres- 
samente per le esigenze italiane. 

Con questi programmi i tecnici 
italiani della Sirius Elettronica met- 
tono a disposizione un servizio che 
trova Utenti nei più diversi settori 
delle attività produttive: dal denti- 
sta all’albergo, dal negozio al teatro. 
E molti altri ancora. 

Programmi semplici da usare, 
chiari, e razionali. E in italiano. 

Tutto questo per valorizzare sem- 
pre di più Commodore 64. 


Deudero conoscere il punto vendita, \ 

a me più vicino, in cui ottenere 
informazioni sui programmi 
applicativi della Sirius Elettronica- 

Nome _ | 

| Cognome 

Via | 

1 CAP Città 

Inviare a: 

Sirius Elettronica 
Vìh Imperia, 21 - 20142 Milano 
Tel. O2/849O40CL&4 31 368 


sirius 

elettronica 


PROGRAMMI SU DISCO 
PER CBM - 64 

4 ÈVA fKluiil 


GESTIONE AGENTI 
RAPPRESENTANTI 

120.000 

GESTIONE AMMORTAMENTI 
MUTUI 

60.000 

GESTIONE ANAGRAFICHE 

120 000 

GESTIONE SCADENZE POLIZZE 

300.000 

GESTIONE AGENZIA VIAGGI 

250.000 

TOTOCALCIO 
(SVILUPPO COLONNARE) 

100000 

GESTIONE CONTI CASA 

100,000 

GESTIONE CONDOMINIO 
(SEMPLIFICATO) 

200.000 

IMPARIAMO IL BASIC 

100.000 

dichiarazione I VA. 

150.000 

DISTINTA BASE 

80000 

GESTIONE EQUO CANONE 

100.000 

MODELLO 740 ORDINARIO 

100.000 

MODELLO 740 NORMALE 

150.000 

GESTIONE STAMPA FATTURA 

00.000 

CENTO PROGRAMMI PER CBM -64 

(DIDATTICO) 

00-000 

GESTIONE FIDO CLIENTI 

120.000 

GESTIONE CONTO CORRENTE 

150.000 

GESTIONE CONTI 

150.000 

GESTIONE ÀFPUNT AMENTI 

150.000 

GESTIONE ORDINI 

150.000 

GESTIONE CANTINE 

250000 

GESTIONE I V A. SEMPLIFICATA 

60.000 

GESTIONE CLUBS 

250,000 

GESTIONE OFFICINE 

250.000 

GESTIONE PORTAFOGLIO 
CLI/FOR 

200.000 

GESTIONE TEATRO 

120.000 

GESTIONE LIBRERIE 

E BIBLIOTECHE 

150.000 

GESTIONE RISTORANTI 

380.000 

MAILING LIST 

150.000 

WORD PROCESSOR 

160.000 

WORD ON MAIL 

250000 

SCADENZIARIO EFFETTI 
CLI/FOR 

200000 


Piana il pubblica 
-UVA ihIuh) 


GESTIONE PULIZIA CAPI 

200.000 

CONTABILITÀ FATTURE C/F 

2O0.OOO 

CONTABILITÀ MONOAZIENDALE 

SEMPLIFICATA 

400.000 

GESTIONE ALBERGHI 

400.000 

gestione parrucchieri 

400.000 

GESTIONE GOMMISTI 

400.000 

LEGGE 373 

(ISOLAMENTI TERMICI) 

150.000 

COMPUTO METRICO 

400.000 

INGEGNERIA CIVILE 1 

250.000 

INGEGNERIA CIVILE li 

25O.0OO 

REVISIONE PREZZI 

300000 

MAGAZZINO E FATTURAZ. 
AGGANCIATE 

400.000 

CONTABILITÀ GENERALE 

400.O0O 

GESTIONE CITICI 

300,000 

GESTIONE DENTISTI 

300.000 

GESTIONE FARMACIE 

400,000 

GESTIONE STUDI MEDICI 

3O0.O0O 

gestione condominio 

ADVANCED 

40O.O0O 

DUPLICATORE ARCHIVI 

400.OO0 

SINTETIZZATORE MUSICALE 

120 000 

DATA BASE 

2O0.OOO 


PROGRAMMA APPLICATIVI 
SU CASSETTA PER VIC-20 


S1R-MAG, 8 

62.500 

SIR-MAG 16 

87.0OO 

S1R-MAG. 32 

98000 

RICETTARIO DI CUCINA 

38.000 

BIORITMO 

41.000 

PROGRAMMA PUBBLICITARIO 
PER NEGOZI 

41.000 

INDIRIZZARIO 

4IOOO 

SIR-CONT - 

CONTABILITÀ DOMESTICA 

49.000 

PROGRAMMI GIOCO 

SU CASSETTA 

24.500 

CORTEK AND MICROCHIPS 

24,500 



Vie e 64-Sistemì 

IMHHMaaBMMMt: 

Può un computer imi 
dai propri sbagl 

parare 

i? 

Un piccolo esempio dì intelligenza artificiale 


QUESTO che presentiamo è uno 
dei programmi che fanno molto 
riflettere sulle possibilità di un 
calcolatore. Si dimostra, infatti, 
che, attraverso una serie di do- 
mande e risposte, un computer 
può “apprendere” informazioni e 
fornirle quando si richiedono. 

Una volta che il lettore digita 
il programma (che gira su qualsia- 
si computer Commodore, com- 
preso il Vie 20 senza espansioni), 
può provarne il funzionamento, 
rispettando la seguente procedu- 
ra riportata a solo titolo di esem- 
pio (in maiuscolo ciò che il letto- 
re deve digitare, in minuscolo i 
messaggi del computer)* 

Digita il primo nome della se- 
rie 

PASQUALE 


e quando sei pronto premi un ta- 
sto 

Premere un tasto qualunque. 
Pasquale* Ho indovinato (s/n)? 
N 

Che cos’era? 

SANDRO 

Che domanda faresti parlando di 
Sandro? 

PORTA GLI OCCHIALI 
Che risposta daresti (s/n)? 

S 

Vuoi giocare ancora (s/n)? 

S 

Pensa a ciò che devo indovinare.., 
e quando sei pronto premi un ta- 
sto 

Porta gli occhiali? 

N 

Pasquale, Ho indovinato (s/n)? 
N 

Cos’era? 

ANNA 


Che domanda faresti parlando di 
Anna? 

E’ intelligente 

Che risposta daresti (s/n)? 

N 

Eccetera* Come si può notare 
il computer, alTinizio, ha a dispo- 
sizione solo un nome (Pasquale) 
e chiede subito se il nominativo 
da indovinare è proprio Pasquale 
oppure no. In caso negativo gli si 
comunica il nuovo nome (Anna), 
che verrà memorizzato insieme 
alla sua caratteristica peculiare. 
AlPinizio il gioco è mqnotono, 
ma diventa divertente dopo Tin- 
se rimento di una ventina di no- 
minativi, che possono anche esser 
ripetuti inserendo ogni volta una 
caratteristica diversa. Per esem- 
pio, dapprima Pasquale sarà solo 


m spprehd i mento automati co per computer tu 

20 rem -m 

. 38 RETI PER ffiALSIRSI COMPUTER (ALMENO CON 
40- REM p# 

"0 REM ^PASQUALE U"-RURIR Via E, DE FILIPPI®; Ì45*-** 


34313 CAVA BEI TIRRENI C3A> 
TEL. 088/432517 


mm0m v 


m 


RNB m O ! 4-r THEN I# 


■50 rem mt 

78 REM ##* 

m rem mt 

m mn m<. 388 > , < 1 00 > ; 

118FPINT ^XECGO DÀ NA37A0?- : NT 
Ì£3 GC3U7 638 : 1? B$ -■ OR P* C 

iSZ IT THEN 318 

1 43 OPEN M.o8 
$■58 

-1S3 INPUTfri , FTi J> • IMPUTAI , ANK/} 

178 ir &kj> <> "FINE’- THÈM J-J+i • 

783 CL03E 1 

180 FRI NT [PENSA 8 OLV 0’ -E BEVO INDOVINARE, 

PSI^T V» QUANDO SEI PPOLTO PREMI UN TASTO. “ ■ 80SUB 330 
‘SIS I r F3C <A$CT>> r 54 THEN 270 
228 FRINÌ R$<I> k ? ,: 








GOTO S50 


■ 


Computer Cfuó ? 


SE VUOI ESSE 
DI SCEGLIERE 


Ogni giorno in Europa sì apre un nuovo computer shop. 

Un pubblico sempre più numeroso è attirato verso il personal/ 
e si rivolge ai negozi specializzati per trovare la sua marca 
preferita. mm 

Tu che hai capito qual è il futuro dei computer e hai deciso 
di aprire un negozio, 
cerchi un nome che dia prestigio 
e una organizzazione che 
non ponga vincoli ma offra 
vantaggi concreti. 

Computeria vuol dire negozi 
di computer fin dal 1979. 

Computeria è anche una 
organizzazione che ha avviato 
rapporti di collaborazione 
con tutti i principali fornitori, 
perciò i suoi affiliati possono 
scegliere e vendere le marche 
più prestigiose e richieste. 

E inoltre Computeria ti dà un prezioso 
know-how, una ricchissima dotazione di 
programmi, supersconti esclusivi, 
vantaggi economici sul leasing. 

E tanta pubblicità. 

Se vuoi essere libero di scegliere quello che 
vuoi vendere nel tuo negozio, 
l’organizzazione Computeria ^ 

è la tua scelta obbligata. 


IIIfflVIPUrERK 

La catena senza catene. 





SOFTGAMES 

OFFRI ARGOMENTI AL TUO COMPUTER! 


CATALOGO INVERNO '83/84 ^cartuccia • d Adisco 




PREZZI 



PREZZI 



AL NETTO 



AL NETTO 

GIOCHI DI AZIONE 


DI IVA 

AVVENTURA 


DI IVA 

CHOPLIFTER 

R 

84.000 

W1TNESS 

D 

97.000 

DAVID'S MIDNIGHT MAGIC 

D 

67.000 

TEMPLE OF APSHAI 

R 

77.000 

FROGGER 

C 

67.000 

UPPER REACHES OF APSHAI 

C 

37.000 

JAWBREAKER 

R 

68.000 

COURSE OF RA 

C 

37.000 

LODE RUNNER 

D 

69.000 

SWORD OF FARGOAL 

C 

58.000 

PROTECTOR 

C 

69.000 

ZORK ! 

D 

77.000 

SHAMUS 

D 

67.000 

ZORK II 

D 

77.000 

SHAMUS II 

C 

69.000 

ZORK III 

D 

77.000 

JUMPMAN 

C 

77.000 

SIMULAZIONI 



JUMPMAN JUNIOR 

R 

77.000 




PITSTOP 

R 

77.000 

COMBAT LEADER 

D/C 

77.000 

LUNAR OUTPOST 

R 

77.000 

COMPUTER BASEBALL 

D 

77.000 

CRASH CRUMBLE & CHOMP 

C 

59.000 

PRO TOUR GOLF 

D 

77.000 




RINGSIDE SEAT 

D 

77.000 

DIDATTICI 



NUKEWAR 

C 

30.000 , 

HEY DIDDLE DIDDLE 

D 

56.000 

• PLANET MINERS 

C 

30.000 

SONG WRITER 

D 


NORTH ATLANTIC CONVOY 

C 

30.000 

DELTA DRAWING 

R 


BEACH HEAD 

D 

43.500 

UTILITIES 






QUICK BROWN FOX 

D 

149.000 




SIMON BASIC 

D 

105.000 




LOGOMOTION 

D 






Softgames Vi propone nella versione per il Commodore 64 i 
programmi sopraelencati. Altre proposte interessanti neU’ambito 
di vasta scelta di software vi attendono. 


I Prezzi si intendono al netto di IVA 18% e franco nostra sede di Torino. Sono soggetti a variazioni 
senza preavviso per fluttuazioni del $. Siamo a vostra disposizione presso ì nostri uffici. Scriveteci 
al seguente indirizzo: SOFTGAMES s.r.l. - 1 01 38 Torino - Via Duchessa Jolanda 9. Oppure tele- 
fonateci allo (Oli) 769857 specificando ì vostri interessi. La spedizione si effettua contrassegno. 
Condizioni particolari ai sigg. rivenditori. 


occhialuto, in sequito sarà ele- 
gante e così via. 

Com’è intuitivo, la possibilità 
di memorizzare una gran quanti- 
tà di nominativi o di servizi di 
lunghe frasi esplicative, dipende 
dalla memoria disponibile. Nel 


caso si disponga di un consistente 
numero di byte (come nel Com- 
modore 64) si può modificare la 
linea 100. 

Quando si desidera smettere 
verrà posta la domanda se regi- 
strare l’archivio oppure no. In ca- 


so affermativo si preparerà un na- 
stro cassetta e si seguirà la nota 
procedura di registrazione. Chi 
possiede l’unità a dischi non do- 
vrebbe avere difficoltà a modifi- 
care la routine di lettura e scrit- 
tura dei dati. ■ 


230 GOSUB £30 

240 1F B$« "S" THEN I»RK<I>: GOTO 213 

250 1F BtO *N" THEN 230 

263 I-fK<I>+lt-OOTO 210 

270 PRINT RIGHT*<fl*<I>, LEN<fì»<I>>-l5 

200 PRINT "HO INDOVINATO'? 1 ' X* 

230 GDSUB 630 

300 IF, B$= "S" THEN 460 

31E IF B$ O "N" THEN 230 

320 IF FRE<0) < 100 THEH PRINT "HAI A DISPOSIZIONE PRINT FRE<0> "CARATTERI" 
330 INPUT "CHE COS'ERRI';. 2 % 

340 pRINt "CHE DOMRNBR FRRÉSTI PARLANDO DI "B$: INPUT C$ 

350 PRINT "CHE RISPOSTA DARESTI " X»:. INPUT Df 
360 IF E* O "S" THEN 403 
370 AS<J) *= "0" + B* 

380 RJCJ+l) = Rt<I> 

390 GOTO 430 

400 IF D* O "N" THEN 350 
410 RfCJ+1) = "0" + B % 

420 = R$<I> 

430 fl$<I> - C* 

440 AJi<I> = J 

450 J = J+2 : A$U> = "FINE" 

460 PRINT "VUOI GIOCARE ANCORA?" 

470 GOSUB 630 
480 IF B* * "S" THEN 190 
490 IF E$ O "N" THEN 470 
500 PRINT "DEVO REGISTRARE?" 

510 GOSUB 630 

520 IF B$ = "N" THEN END 

530 IF B* O "S" THEN 510 

540 OPEN 1,1,1 

550 1=0 

560 PRINT#l,A$a> 

570 PRINT#!, AttCI) 

580 1=1+1 

590 IF I <= J THEN 560 
600 CLOSE 1 

610 PRINT "^DIGITA IL PRIMO NONE DELLA SERIE": INPUT B$ 

620 A$(0> * "0" + B$:j=l= GOTO 190 
630 0ETB$: IF B* = "" THEN 630 
640 RETURN 


Computer Cfub* 1 1 




Sistemi CBM 


Un programma assemblatore 


Digitare questo programma non è semplice nè molto divertente. Alla fine , però t scoprirete un nuovo 
modo di programmare , 


IL programma assemblatore ini- 
zia alla riga 1111, perchè nelle 
prime 1111 linee (dalla 0 alla 
1110), andrà scrìtto il program- 
ma da assemblare. II formato di 
una riga dovrà essere: 
numero, virgolette, istruzione in 
assembler. 

Esempio: IO ” Lda *234 

Vi è la possibilità di inserire 
dei commenti che dovranno esse- 
re preceduti dal punto e virgola 
(;). Si dovrà dunque scrìvere: 

10 ” lda #234; commento qua- 
lunque 
oppure: 

1 0 commento qualunque 

E 1 necessario, però', ricordare 
che la prima istruzione di qualsia- 
si programma in assembler, dovrà 
essere del tipo: 

10 *xxxx 


ove al gruppo xxxx deve essere 
sostituito il valore (nel caso no- 


stro decimale) di partenza di as- 

Istruzioni del ™ 


m icroprocessore 6502 

116 SOMMA CON 
U8 »■ RIPORTO— 

i20 “ mnw?> 


1 24 

1 £6 
128 
130 




semblaggio. In altri termini (se si 
vuole che la nostra routine in 
l.m. cominci dalla locazione esa- 
decimale 033c, bisognerà scrìve- 
re: 


10 “*S033c ; punto start 

11 riferimento ad etichette me- 
diante l'uso del prefisso @ (chioc- 
dola), seguito dal nome della la- 
bel. 


fine mi 

134 

" RDC .X<MI> 

144 " 

and . <m> 

fido jX’CMFO 

136 

» ■ 

j 

146 " 

AND #MI 

adc , v<mh> 

133 

" i RND LOGICO 

143 " 

RND , X(MR> 

ADC /KCNI) 

140 


ISO " 

RND , V ( MR ) 

adc acmi >. 

142 

" HMD <riH) 

152 " 

RND /KCMU 


12- Computer Club 


154 1 

AND 

/vali > 

258 

11 

SBC 

,* X< MA) 

362 

II 

BCC 

UNO 

466 

156 1 

AND 

.xcmi) 

260 

11 

SBC 

> V C MA ) 

364 

II 

BCS 

UNO 

468 

158 1 

; CONFRONTA 

262 

II 

SBC 

/XCMI) 

366 

II 

BEO 

UNO 

470 

160 1 

; CON 


264 

II 

SBC 

/VC MI) 

368 

1» 

BMI 

UNO 

472 

162 ‘ 

ACCUMULATORE 1 

266 

li 

SBC 

.XCMI) 

370 

II 

BNE 

UNO 

474 

164 1 

CMP 

<MR> 

2bS 

11 

IMMAGAZZINA 

372 

II 

BPL. 

UNO 

476 

166 ' 

CMP 

. (MI) 

276 

II 

; L' 


374 

ir 

BVC 

UNO 

478 

168 1 

CMP 

#MI 

272 

II 

ACCUMULATORE 

376 

11 

BVS 

UNO 

480 

170 1 

CMP 

t XCMA) 

274 

II 

STA 

(MA) 

378 

il 



482 

Ì72 1 

CMP 

,VCMA) 

276 

11 

STA 

. (MI) 

380 

Il ■ 
j 

IMPLICATI 

484 

174 1 

CMP 

/xeni) 

273 

II 

STA 

,X(MR> 

382 

Il - 

BRK 


486 

176 1 

CMP 

/van > 

280 

11 

STA 

.■ V ( MA ) 

384 

il 


488 

178 1 

CMP 

. XCMI > 

282 

II 

STA 

/XCMI) 

386 

il 

CLD 

CLC 

CU 


490 

180 ’ 
182 1 

ÓR ESCLUSIVO 

284 

286 

11 

II 

STA 

STA 

/veni) 

.XCMI) 

388 

398 

il 

il 


492 

494 

184 1 

; 


288 

II 

SPOSTAMENTO 

392 

il 

CL.V 


496 

186 1 
188 1 

EOR 

EOE 

<mh> 

. (MI > 

290 

292 

11 

11 

; ARITMETICO 
; A SINISTRA 

394 

396 

li 

il 

DEX 

DEV 


498 

500 

180 1 

EOR 

#M I 

294 

11 

flSL 

A 

398 

ti 

INX 


502 

182 1 

EOR 

, X ( MA ) 

296 

II 

HSL 

(MA) 

400 

il 

INV 


504 

184 1 

EOR 

,V(pjfi> 

298 

II 

RSL 

. (MI) 

402 

il 

NOP 


506 

196 1 

EOR 

/XCMI > 

300 

II 

flSL 

t X C MA ) 

404 

il 

PHA 


508 

198 1 

1 EOR 

/vai n 

302 

11 

RSL 

.XCMI) 

406 

il 

PHP 


510 

200 1 

' EOR 

. X C M I > 

304 

li 

J SPOSI 

‘AMENTO 

408 

il 

PLfl 


512 

202 ' 

‘ iCHRIC 

:a L' 

306 

II 

; LOG HI 

:o 

410 

il 

PLP 


514 

204 1 
206 1 

lÀCCUMULRTORE 

300 

310 

11 

11 

DESTRA 

LSR FI 

412 

414 

li 

il 

RTI 

RTS 


516 

518 

208 ' 

' LUA 

(MA) 

312 

11 

LSR 

(MA) 

418 

II 

SEC 


520 

210 ' 

1 LDR 

. (MI) 

314 

II 

LSR 

. (MI) 

418 

11 

SED 


522 

212 ’ 

1 LDR 

#MI 

316 

II 

LSR 

,X(MR) 

420 

11 

SEI 


524 

214 " LBFI 

,xcha> 

318 

fi 

LSR 

.XCMI) 

422 

lì 

TAX 


526 

216 1 

1 LDR 

, vaiR> 

320 

II 

ROTA 

ZI ONE 

424 

II 

TAV 


528 

218 ' 

1 LDR 

/xain 

322 

II 

■' O TiC 

CTPfi 

426 

11 

TSX 


530 

220 ’ 

1 LDR 

/vaio 

324 

II 

* n jUc. 

o i p-.n 

428 

ir 

TXR 


532 

222 1 

1 LDR 

•XCMI > 

326 

II 

’ror 

A 

430 

It 

TXS 


534 

224 1 

l ■ 


323 

II 

ROE 

(MA) 

432 

II 

TVA 


536 

226 1 

1 ; OR LOGICO 

330 

II 

ROR 

. (MI) 

434 

ri * 

decrementh 

538 

228 1 

$ 


332 

11 

ROR 

//(MA) 

436 

il ■ 

1 H MEMORIA 

540 

230 ’ 

' ORA 

(MR> 

334 

II 

RÒR 

.XCMI) 

438 

3 

DEC 


542 

282 " ORA 

. (MI > 

336 

II 

; ROTAZIONE 

440 

il 

(MA) 

544 

234 1 

‘ ORA 

#MI 

338 

II 



442 

l! 

DEC 

. (MI) 

546 

236 1 

1 ORA 

, XCMA) 

340 

11 

- H c- inibì KH 

444 

li 

DEC 

.. X ( MA ) 

548 

238 1 

1 ORA 

j V ( MA > 

342 

II 

ROL 

A 

446 

li 

DEC 

.xeni) 

550 

240 1 

1 ORA 

/X (MI) 

344 

11 

ROL 

(MA) 

448 

Il ■ 

0 

INCREMENTA 

552 

242 • 

’ ORA 

/VCMI) 

346 

II 

ROL 

. (MI) 

450 

fi ' 

1 RI MFMflPTw 

554 

244 ’ 

1 ORA 

, XCMI > 

343 

II 

ROL 

, X(Mfl) 

452 

li - 
i 



556 

246 1 

•; SOTTRAE CON 

350 

II 

ROL 

■XCMI) 

454 

II 

INC 

(MA) 

558 

248 1 

1 * 

<riv >FUKi«n mMiii 

353 

11 

J 


456 

II 

INC 

. (MI) 

560 

250 1 

, : e i poi 

iTO 

354 

11 

@UNO 


458 

II 

INC 

.> X C MA > 

562 

252 ' 

' SBC 

"(Tini 

356 

II 



460 

II 

INC 

.XCMI) 

564 

254 1 

' SBC 

. (MI)' 

358 

II 

DIRAMAZIONI 

462 

Il - 
J 



566 

256 • 

1 SBC 

#ni 

360 

li 



464 

li ■ 

SALTA A 

568 


•* jmp <m:> 

" JMP /(MI) 

" SRL TR ALLA 

SUBROUTINE 

JSR <Mfi> 

li ■ 

"I CARICA X 

LUX (MA) 

" LUX .011) 

" LUX #Mi 
11 LUX ,V(MR) 
11 LDX ,v<md 

il - 

" .1 CARICA V 

LDV (MI) 

" LXjV .(MI) 

" LDV #MI 
" LDV jfXCMfl) 
" LDV , XCMI > 
M IMMAGAZZINA 


11 STX (MA) 

" STX . <m> 

" stx . vcmi> 
MMMRGAZZINR 


" STV (MA) 

" STV .CHI) 

" STV .X01I> 
‘/VERI FICA 

II; DI BIT 

" BIT (MA) 

" BIT .(MI) 

" ; CON FRONTA 

Il \ CON X 

" CPX (MA) 

" CPX .(MI) 

,l CPX #MI 
" CONFRO NTA 

II : CON V ’ 

CPV CMA) 

" CPV .(MI) 

" CPV #MI 
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Il listato del programma 


11 li REM 1 ' 

1112 REFI" 

1113 REM " DI VIZIO MRURIZIQ 

1114 REM 1 ' 

1115 REM" TEL 039 / 743092 - 

1116 REM" 

U 17 REM" 

1113 REM" — RSSENBLfìTORE 6502 — 

1 119 

5000 CL0SE3 ;GQTO6£i40 

5001 CLR;INPUT"3SIBSTRI USRNDO IL PET 41 ;$m i IFLEFT^C SU*, 1 } ^J"5 n THENUU«4 1 iGOTO50Ì0 

5002 WU=44 

5010 D I ML* C 8> , VL < 8 > : FRI NT "UT 

5026 IB=PEEK<WU>*256+PEEK<WU~1>-1 :YY=IB 

5030 PRINT'Vffi" 

5840 GOTO5090 
5050 : 

5060 Sl=" " 

5070 I FPEEK 1 1 B >=8THENRET URN 

5080 S*=S$+CHR$(PEEKaB> > s IB=IB+1 :GOTO5070 

5090 : 

5100 PF: I HT "LI NEfì/PROG . C OUNTERffi" : FRI NT 
5110 VOLTR=l 

5120 Lfl=PEEK< IB+4!)fc256+PEEKC 16+3) 1 1 FLfì= 1 1 1 1THEN5496 
5130 PRI NTLR F PC : IB^I B+5 
5140 GOSUB5050 

5150 Ì1^CHR«C34> + H *" ;IFVO=l|«3LEFT#<:S^^2>OMfTHENPRlNT ,l J]R DOVE RLLOCO ?", H ERR* 
IN" ;Lfl sEMD 

5160 IFLEFT*<S*,2)=M*THEN 6750 

5170 I FLEFT* < S $ , 1 ) OCHR* C 34 > THENPR 1 HT " □ERRORE IN" ;Lft SENO 

5180 IF MID*<S*,2,Ì>s ,, ? M THEN5l20 

5190 IF MID$CS$,2a> = "OrTHEN5410 

5200 IFMID*CS*,2, 1 }=”=" THÈN6500 

5210 GOTO53O0 

5220 FORK*1T0LENCSS) si FMIO* < S*,K,1 > = M ' "THEN5240 
5230 NEXT :PRINT "ERRORE I N " £ LR : END 
5240 S$=MIQ*<S*,K+aLEN<5*>> 

5250 FORK=1TOLEN<S*> 1 IFMID*<SS ,K,1 ìm" >IÉ THEN52S0 
5260 I FK>80THENPR 1 NT " ZTTESTO TR0P- LUNGO IN" ;LR :ÉHO 
5270 NEXT SPRINT "ERRORE IN»;LRìEND 

5280 S*^MID*<5$,ifK-l} iPQ*PCh-LENCS#> : I FPRé0THEN?f 1 20 

5290 PR=0:FGRK=1TOLEN<S$) :H==fìSC<;MIO$<S*,Ka :OOSUB6630 tPC±=PG+l iNEXT :GOTO 5570 
5300 FORK-1TOLENCS*) 5 1 FM 1D* < S* 1 > =*'* "ORmD*<ÌS*,Kà >=CHR* <34>THENNEXTK 
531© S*=MID*< S$ , 4+K ,LENC3*> -K+ 1 > 

5320 IF LEFT*<S*,1>=” ,( ORLEFT*<SS, I > = '* ;’TRLEFT*<S* a >=*' ”THENPC=PC+1 ;GOTO3l20 

5330 R*=NlD*<S*,2a> : IFLEFTSCS*, i >* M R M RNO<R$= M " ORR£= ** ; n QRR*= " M > THENPC=PC+ 1 sOOT 
□5126 

533 1 SR*»=LEFT$<S* , 1 ) 

5340 I FSR*= ■ # " ORSR*= " * " THENPC=PC+2 ì G0T05 1 20 
5350 IFSR*="< 1 *THENPC*PC+3tGOTO5Ì20 

5360 IFSfl*=" , " T HENF C = PC +3 SGOTO3120 -► 
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537© M THENPC=PC+2sGOTO5120 

5380 I FSFr$= 11 = " THEH I FM 1 6$ C $$, 2 ^ 1 > = M C " THENPC^PO+3 : GOT05 1 28 
5390 lFSft$= 1 * = M THENFC=FC+2 :G0TQ512© 

5400 PC-PC+2 rG0T05 1 2© 

5410 ; 

5420 S*=RIGHT*<S$ ,LEN<S*>~2> sFQRK^lTQLENCS** :G*=T1ID*<S$,K , 1 > ; rFG$-*' "ORGS^" ; "TH 

EN5440 

5430 NEXT:GOTO5450 
5440 S$=M1D#CSS,1,K-I> 

5450 FORHae0TOl e IFL#<N>*S#THENPRINT RIFET- ERRORE IN" ;Lfì SENO 

5460 NEXTsI=I+l 

5470 L$<r>=S*!VL<I>=FC 

5430 GGTO5120: 

5496 s 

5580 : FRI NT 

551G PRINT"SETICHETTR/* 1 ^ “VflLOREgr SPRINT 
5526 PRXNT;FORN-1T0I :PRINTL*CN> „ ,( -"VL<N> :NEXT SPRINT 
5530 PR I NT " #======== ========== ====a" 

5548 FORBL= 1 TQ2508 iNEXT : FRINT "rDjDP" 

5558 PR2NT ,, Ó^#4i CODICE OGGETTO ***" 

556© FF=1 : IB-YV :PC*0 :TP=PC-1 

5570 S*=" “ :LR=PEEK< IB+4>*256+PEEK< IB+3> : IFLR=1 1 1 1THEN6S3© 

55S© IB=lB+5 
5590 GOSUB5050 

560© IFLEFT^S^ 1 ><>CHR$ <34 >THEHPR1NT "TERRORE IN";LR:ÉND 
561© IF niDS<S*,2 J ,l?i= H | "THEN5570 
5620 IF mD$<S$,2^L>^"t="TMEN557© 

5630 IF MIO$tS*,2 / i> = M @ l 'THEN5370 

564© IF riID«CS*,2^1)^"* 1J THEN:;;IH=l ;GOT0515© 

5650 5*=MlO*CS*„2.,LEhKS$>> sFORK* 1 TOLEN< S* > : I FN ld*< S* , K, 1 > = M "ORNI D*< S$ 1 1 11 

THEHNEXTK 

566© Sfiati ID*<S*,K,3> 

567© SP**mD*<S*,K+4,LENCS$>> 

3630 FORK=*lTQLEN<SF$> ; IFNIO* < SP* ,K , 1 " ; "ORM I D$ <SP$ , K* 1 5»'* “THEHKaLEN < SP$ > * GOTO 

5700 

569© NEXT:GGTO5710 
5700 SFS=NID*CSP$,1,K-1> 

571© F0RK=1T0LEN<SP# > jG^=NIO$<SP$ J -K J r 1 ? 

5720 IFG$=" “ ORG$= " > c ' ORG$=" ; “ THEN3740 
5730 NEXT JGOTG5750 
5746 SF$^MID$<SF*,Ì'„K> 

5750 s 

5760 ST$=LEFT*<SF*,.1> 

3770 IFST*^ 1 ' , *ORST*== lt ;"THENPC^PC+l F u ;GOTQ590© 

3730 R*~NID*CSP$,2 r i > : IFST* = "fTRNDC R$= " "ORR»= " ; "ORR»= 'VO THENPC=PC+ 1 ;8B*^"0 10" : 
TS= 1 : G0TG5908 

5790 IFST$— M # " ORST #=* THENPC=PC+2 0*' :GOTO5900 

5300 lF3T$~%"RNDLEFTf <SP*,2> = %>CTHEHPC=PC+3:ee*="Ìil" SGOTO5900 
5310 IFST^"^*RNDLEFTf<SP4! 1 ,2>a , %V JI THENPC=PC+3:BBS="110" tGDTO5900 
5320 IFST*=" < "THENPC=PC+3 ;BB$-"0ì 1 " :GOTG5900 

5330 I FST S= '* ■ " RNDLEFT# < SP$ , 2 ) = 11 ■ X " THEHPC=PC+2 : BB# ^"101" sGGTO5900 
5340 IFST$=". " fiNDLEFT $ C SPf , 2 > = " ■ Y " THENPC— FC+2 : BB$= " 1 0 11 ;GOTO5900 
3330 IFST*^'*. "THENPC=PC+2lBB$= 4 ’00Ì" SGOTQ5900 

5860 I FST#= 11 / "RNDLEFT$ CSP$ a 2> = *VX "THENPC=PC-f 2 ;BB$= " 000" sBGTQ5900 
587© IF5T$= , V"RNDLEFT$<SP$,2>^VY"THENPC=PC+2iBB*=" 100" :GOTO5900 
5830 IF3T^ , V H THENPC=PC+3:BB^=‘ 1 1 11 sG0T059©3 
5890 BB*="REL M :PC=PC+2 sGOTG5900 
590© s 

5910 J FSR#» " LDV 11 F|NDBB$= 11 10"THEN sK;BB^" 101 « iGOTO5?940 «► 
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6490 s RETURN 
650© l 

6510 S*=MID*CS*^3,,LEN<S$;0 :F0RK~1 TOLENCS*) JlFMIDf I > = "=*" THEN653G 

652© NEXT: FRI NT *' TERRORE IN";Lfì:END 
653© WÌ$=MID*<S$ r l # K-l> 

654© W2$=MID*<S4M+K,LEN<S*)> 

6550 IFLEFT$<W2*,2>="r , THEN7220 
6560 IF LEFT$<W2^ J rl> = "# ,, THEN6580 

657© PR1 NT- ERRORE IN";LR:END 
653© W2*=MI04KW2$,2,LEN<W2*>:>5F0RK=1T0I 
6590 IFWl*=Ut<K> THENPRI NT "ERRORE IN" ;Lft iEND 
6600 NEXT 

S610 1=1+1 :VLCI>-VfìL<W2*> SL$CI>=*I1* 

662© GOTO5120 
6630 ; 

6640 : 

6650 F0KEJ+TP f H 

666© TP=TF+1 :H$^STRSCH> 

667© FRINTH$> 

668© RETURN 
669© ; 

670© I FL EFT$ ( SF$ / 1>="I " THENR$— M I D$ C SP$ ,2.4? :G0SUB71 10«H»V slfel sG0T0673© 

671© M=RSQ<mD^^SP^/2,3>> a IFrK480Rn>57THENPRIHT ,f ERRORE IN" ;LR sEND 
672© H^VfìL<MI0*<$P*,2,LEN<SP*}}> ;VN=i 

673© IFBB*="101 " ORBB*= 11 1 © 11 ORBB$^ 11 00 1 "ORBBf'c - ©00 - ORBB$= " 1 00 *' THEN VMt; 0 
674© N»0;VL<0}=H;GOTO61£0 
675© : 

6760 SM1ID*<S*,3,LENCS*>» 

677© IFLEFT<CSf^I>» M # u THEN7070 

6780 IF LEFT $ < S# , 1 >0 " # 11 THENPR I N T 11 ERRORE IN" ;LRsEMD 
6790 S$fiMlD*<S*,2,UEN<S*>> 

6800 PC=VfìLCS$> sJ=PC:TP=0:IF FF= 1 THENPRI NT I PRINT sRR=0 i H*« "«*»" :GO£:UB6670 
6810 V0LTE^2iIF IN^ITHEN IN=© =GOTQ5570 
682© GOTO5120 

683© PRINT jpRIHT t "WBaMF INE FlSSEMBLRGG 1 0 . HSJ" :FORK=0TO3500 (NEXT sPOKE 196,0 
6840 s 

685© PRINT ,t :T ;CHR$< Ì4>.sCHR$<8> 

6851 PR 1 NT " ================ 11 

6852 PRINT-S ASSE MBLfìT ORE S li 

6853 PR I NT" ==—====— ======== 11 

6860 PRINT SPRINT" l> ASSEMBLAGGI© 1 * :PRINT"K2> SfìLVfìTRGG IO " 

6370 PRINT" 2fl3> CRR I CRNENTÙ 11 
689© PRINT" SJ4 > LISTRRE SU VIDEO" 

6902 PR I NT *' SJ5 > SFINE FROGRANNA * ■" 

6903 PRlNT"MIffl3 DUPLE OPZIONE 1 ?" j 

6910 GETRS :IFVflLCfì*><lORVRLCfì*»5THEN6Bl0 

69 11 PRINT-3- 

6930 I FRJ^= "4" THENPRI NT -SKffl' 1 :LI ST-U 10 :END 
694© IFfìf»" 1 "THEN5001 

6950 I Ffi$=“5 " THENPRI NT " 3" :END 

6951 PRlNT"3STftI USANDO "iPRlNT'TL PET JCS/N? " 1 3 NPUTOC* ìIFLEFTSCOC* , 1 > = -N" THEN69 
60 

6952 PRINT "ELEGGERE L' ARTICOLO" 

6953 FORV©= 1TO6G00 ; NEXT jRUNl 1 1 1 
696© REST0RE:PRINT"2^ M 

6970 READfl^B* :IFA$0"-1 "THEN6970 

6980 INPUT "PERIFERICA < l/8> " s INPUT "®STflRT <DEC> " ; V ; INPLHT'MEWD <DEC>";W 
6990 INPUT-^HRMEFILE" ; VIE: PRINT : PRINT ;R=540rFORJ= 1 T043 : RERDT : POKER +J+5,T 5 NEXT tPO 
KE549, P ^ 
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7000 IFP=STHENCLQSE1 :IF U THEN 0PEN1 ,8, 15, "S0 : "+V$ 

7010 T=LEN<V*> iP0KE25,T :U=1 :S=236*PEEK<50>+PEEK<43>+T 

7020 FORJ=1TOT iPOKES-J,flSC<RIGHT^<V^,J>> sNEXT sSVS346 !U=V sT*252 :GOSUB7060 :IFW=0T 
HEN7040 

7030 U=W sT=254 :GOSUB7060 JSVS573 sRUN5800 

7040 FORJx0TO5:POKER+J,PEEKC45+J5 :NEXT :SY5569 :FORJ=0TO5 iPOKE45+J,PEEKCR+J> sNEXT 
7050 RUN5000 

70S0 POKET, INT<U7256> SPDKET-I ,U-256#PEEK<T> : RETURN 

7070 S*=Mm$<S$,2,LEN<S$>> :F0RK=1TOLEH<S$> :C$=MID*<S:t ,K, 1 > ìIFG*-" "ORG*=" J "THEN 
7030 

7080 NEXT 

7090 IFKO3flN0KO5THENPRINT l, SERRORE IN" ;LB iEND 
7100 R$»I1IDT-<:S*,1 ,K-1 > iGOSUB7110iS$=STR*<V> :GOTO6S00 
7110 : 

7120 R$=niO*<R*, 1 ,4> i IFLEN<Rf X4THENQOSUB7158 S V*fl : RETURN 

7130 W*=fl$ifl**l1IO*<W$,l,2> t0OSUB7150iW=fl 

7140 R*=MID*<W$,3,2> iOOSU87150 :V=256*W+R : RETURN 

7150 fil$=LEFT$<fì$,l> ;R2 *hRIGHT$<RT-, 1 5 

7160 IF Rlf-<"fT THEN7180 

7170 Rlf=STR* : <fiSC<Rli , >-55> 

7180 IF R2t<”fl M THEN7200 
7130 R2ar=STR»CflSC(fl2*)-55) 

7200 R=VRL<fll¥>*16+VfiL<R2f> 

7210 RETURN 

7220 W2*=MID*<W2t,2,LENCW2$»(FQRK=lT0LEN<W2*> iG$=MID$<W2*,K, 1 > 

7230 IFQ*=” "ORG$=" t " THEN7250 
7240 NEXT 

7250 I FK03RNDK OSTHENPR I NT " TERRORE IN" ;Lfl iEND 

7260 Rf=MIDf <W2*, 1,K-1> :GOSUB7110 jW2f="4"+STRf<:V> iGOTQ6330 

7270 FORK=lTOLEN<Xt> jG*=MID*XXS,K , 1 > 

7280 IFG*=" M ORG$=";’'THEN7300 
7290 NEXT 

7300 IFK03RNDK05THENPRINT" JERRGRE IN";LRiEND 
7310 Rf=MIDf (Xf 1 , 1 ,K-1 > IG0SU87 110 iH=V iGOTO 6400 

7320 DRTRRDC ,011 BBB0 1 , RNO ,001 BB80 1 , RSL , 000BBB 1 0 , BCC , 1 00 I 0000 , BCS , 1 0 1 1 0000 , BEO , 1 
111 0000 

7330 DRTRB I T, 00 1BBB00,BM 1,001 10000, BNE, 1 10 10000, BPL, 00018000, BRK, 00000000, EVC,0 
1010000 

7340 DRTRBVS,01 11 0000, CLC, 0001 1000, CLD, 1 101 1000, GLI ,01011000, CLV, 101 1 1000, CMF, 1 
10BBB01 

7350 DRTRCPX, 11 1BBB00,CPV, 11 0BBB00, DEC, 1 10BB1 10, DEX, 1 1001010, DEV, 10001 000, EOR,0 
10BBB01 

7360 DRTRINC, 1 1 1BB1 10, INX, 1 1 101000, JMP,0 1801 100, JSR, 00 100000, LDR, 101 BBB01 
7370 DfiTRLDX,1018BB10,LDV,101BBB00,LSR,01BBBH0,NOP,U101010,ORfl,000BBB01,PHfl,0 
1001000 

7380 ORTRPHP, 00001000, PLR, 01 101006, PLP, 00101000, ROL,001BBB10,ROR, 0UBBB10,RTI ,0 
1000000 

7390 DRTRRTS,01 100000, SBC, 1 1 1BBB01 , SEC, 001 1 1000,SED, 1111 1000, SEI ,01 111000,STfi 1 
0BBBB01 

7400 DRTRSTX, 100BB110,STV, 100BB100,TRX, 10101010, TRV, 10101000, TSX, 10111010, TXR, 1 
0001010 

7410 DRTRTXS, 1001 1010,TVfl,1001 1000, INV, 110010000,-1,-1 

7420 DRTR169, 1,162, 1,160, 0,32, 186, 255, 165, 25, 166, 43, 164, 50, 32, 189, 255, 169, 000 

7421 DfìTR 133,157 

7430 DRTR96, 169, 0,166, 251, 164. 252, 32, 2 13, 255, 36, 163, 251, 166, 253, 164, 254, 32, 216, 
255,96 

7440 REM FOR2R KEV 
7450 PRINT43 1CL0SE3 i RUN1111 
RERDV. 
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Programmi di prova per il Vie 20 


Per lo serali 

26 11 LDA ,X(#4096) 

del video 

27 " STA ,XC#4U8> 

10 "*#828 

28 " LDfl XX < #37888) 

il "; 

29 " STA / X<#37910) 

12 

38 " DEX 

14 " LDX #230 

31 " CPX #255 

15 " ÌUNO 

32 " ENE DUE 

16 " LDA ,X(#4349) 

33 

17 " STA ,X<#4371) 

34 " LDX #22 

18 " LDfl j>X(#38141) 

35 " LDfl #32 

19 " STA ,X<#38163) 

36 "0TRE 

20 " BEX 

37 " .STA ,X<#4095> 

21 " CPX #255 

38 " DEX 

22 " BNE UNO 

39 " BNE TRE 

23 "J 

40 " RTS 

24 " LDX #252 

41 "; 

25 "SDUE 

42 

Per rinumerare 

122 INV 

.100 "##828 

123 " STA XV C#0 > 

102 " LDfl #10 

124 11 LDA .(#5) 

104 " STA . (#4) 

125 " INV 

105 " LDfl #0 

126 " STA XV (#0) 

106 " STA .(#5) 

127 " CLC 

107 " LDA #1 

128 " LDA .(#4) 

108 11 STA .(#@) 

129 " ADC #18 

109 " LDfl #18 

130 " STA .(#4) 

110 " STA .(#1) 

131 " ECO TRE 

111 " SDUE 

132 " LDA .(#5) 

112 " LDV #0 

133 " ADC #0 

113 " LDfl XV (#0; 

134 11 STA .(#5) 

114 " ENE UNO 

135 "©TRE 

115 " RTS 

136 " LDfl .(#6) 

116 "SUNO 

137 " STA .(#0) 

117 11 STA .(#6) 

138 " LDA .<#?) 

113 " INV 

139 " STA .(#1) 

119 " LDA X¥<#0> 

140 " LDfl #0 

120 " STA .<#?) 

141 11 EE0 DUE 

121 " LDA , (#4) 

142 "; 

Organetto 

20 "0UNO 


21 " ■ LDA . (KEV) 

16 "*$0330 

22 " CNP #NT 

11 11 ; 

23 " BEQ UNO 

12 "=ON=f0F 

24 " ADC $80 

13 "=OFF=$00 

25 " STA C$900E) 

14 " =KEV-$CE 

26 " CNF #F7 

15 "=F?=$BF 

27 " BNE UNO 

16 "=WT=$40 

28 " LDA #GFF 

17 "; 

29 " STA . <$C6) 

18 « LDA #ON 

30 " STA ($90@E) 

19 " STA ($900E) 

31 " RTS 


Un bip 

ad ogni return 


10 

11 

12 

13 

14 

15 

16 

17 

18 
19 
23 

30 

31 

32 

33 

34 

35 

36 

37 

38 
33 

40 

41 

42 

43 

44 

45 

46 

47 
43 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 


"MB33C/ 


MNIZIflLIZZRZIONE 


LDfl 

STA 

LDfl 

STA 

LDfl 

STA 

LDfl 

STA 

RTS 


(#772); 

<# 1000 >; 

(#773>; 

(#1001); 

#132; 

(#772); 

; 

(#773); 


"J GENERA SONORO 

11 J 

"i#900; 
“=VGL=#36878; 
"=SQN=#36875; 
"=NOTA=#21 1 ; 

" STA , (#1); 

" STX .(#2); 

11 STV .(#3); 

" LDA #15; 

“ STA (VOL>; 

" LDA #nota; 

" STA (SOM); 

" LDV #255 

"@UNQ; 

" LDX #255 
"0DUE; 

" DEX ; 

" BNE DUE; 

" DEV ; 

H BNE UNO.; 

" LDA #0; 

STR (VOL>; 

LDfl .(#l>; 

LDX . (#2); 

LDV .(#3); 

JNP 7 (#1000); 
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Se stai comprando un personal 
computer prova a farti queste domande: 

1 . Chi è oggi il più affidabile? 

2 . Chi dà la possibilità di scegliere fra 
più sistemi? 

3. Chi fornisce soluzioni, subito, 


in una gamma vastissima? 

4. Chi propone il miglior rapporto fra 
costi e prestazioni? 

5 . Chi ti dà una così grande esperienza 
ed assistenza? 

A tutte le domande puoi rispondere con 



un solo nome: Commodore Computer. 

Anche per questo Commodore 
è ii Numero 1. In Europa e in Italia. 

Sei in buone mani. 

Commodore Italiana Spa 
Milano, telefono 02/6125651 


Commodore 

v COMPUTER 



10 “©routine 

Il precedente esempio defini- 
sce l’etichetta “routine” utile per 
esempio, nel caso sì voglia scrive- 
re un relativo diretto ad un indi- 
rizzo variabile: 
e$: 10 “bne routine 

Il numero massimo di label di- 
sponibili è scritto nel doppio di- 
mensionamento di vettori di riga 
5010. Nel caso si vogliono più di 
8 etichette, per esempio, in nu- 
mero x, si dovrà digitare: 

5010 clr:dim l$(x), vl(x): print 

« ZM ** 

Si ricordi, inoltre, che nello 
scrivere una linea, tra Istruzione 
mnemonica (es: Ida) e il relativo 
argomento (es: #234), occorre 
inserire uno spazio. 

La capacità di riferirsi a valori 
decimali (#) oppure esa {$), si 
aggiunge alla possibilità di de- 
finire delle costanti, di più lettere 
e in qualsiasi punto del program- 
ma. Per esempio, volendo asse- 
gnare a k il valore decimale 1 234, 
si scriverà: 

10 “=k=# 1*234, eventuale 
commento. 

Per utilizzare tale costante, 
per esempio, in modo assoluto, si 
deve scrivere; 

10 " Ida (k) di cento più vantag- 
gioso di: 

10” Ida (#1234) 

Chiarito come va scritto il pro- 
gramma da assemblare, vediamo 
come gira il vero e proprio assem- 
blatore. 

Come detto precedentemente, 
occorre digitare “run 1111 in 
seguito tale ordine il video mostra 
una serie di opzioni, ottenìbili 
con la pressione dei tasti-funzio- 


ne, 1, 3,5,7, ed 8, come, appunto, 
specificato nel menu. Vediamole 
singolarmente. 

Assemblaggio 

Premendo (fi) F assemblatore 
effettua una prima verifica, riga 
per riga, in modo da controllare 
che tutte le labels siano corrette 
e che siano, altresì, esattigli asse- 
gnamenti delle costanti. Il video 
mostra due colonne di valori: la 
prima indica il numero della linea 
che sta per essere esaminata, la 
seconda è la successione delle lo- 
cazioni di memoria utilizzate dal- 
P a ssemb latore per allocare il 
programma; in seguito lo schermo 
^ mostra tutte le labels e costanti, 
con il relativo valore espresso in 
decimale* 

Premendo la barra spaziatrice, 
Fassemb latore provvede ad un ul- 
teriore test e solo se tutto è cor- 
retto comincia a tradurre V as- 
sembler in Linguaggio Macchina 
(L.M.). 

Nel caso si riscontrino errori, 
verrà segnalato il numero della ri- 
ga non corretta, col conseguente 
arresto della fase di traduzione. 

In tal caso, bisogna verificare 
che la sintassi di tale riga sia esat- 
ta, se in essa siano state usate co- 
stanti non nominate preceden- 
temente, se il salto del relativo 
sia troppo esteso, se il relativo 
chiami una label innominata, e 
cosi via, 

Eseguita la correzione neces- 
saria, riprendere nuovamente la 
traduzione, mediante 
“run 1111” 

Corretti eventuali errori, termina- 


to l’assemblaggio vero e proprio, 
il programma assemblatore mo- 
stra sullo schermo la primitiva vi- 
ci eat a, che avverte delle diverse 
opzioni. 

I tasti (f3) o (f5), provvedono 
alla fase di lettura/scrittura su na- 
stro/disco del programma prece- 
dentemente assemblato. 

Facciamo Fipotesi che la no- 
stra routine in Lm. sia allocata da 
828 (dee) sino a 1000 (dee). Vo- 
lendo registrare su nastro o disco 
tale zona, scelta la periferica ( na- 
stro = 1 / disco=8) bisognerà ri- 
spondere agli input nel modo se- 
guente; 
start? 828 
end? 1000 

Per ricaricare invece da perife- 
rica il programma in Lm., prece- 
dentemente registrato, si rispon- 
derà; 

start? 828 
end ? 0 

Listati 

Digitando (f7) si otterà sul vi- 
deo Finterò listato del program- 
ma da assemblare. 

Desiderando invece il list su 
stampante, si premerà (f8). 

Uscita 

Alla pressione del tasto-fun- 
zione n.5, si esce dal programma 
assemblatore, cosa utile (e più 
elegante che premere restore + 
run/stop), nel caso si vogliano ap- 
portare modifiche o aggiunte al 
list del programma da assembla- 
re. * 
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Scrivi anche tu 


La collaborazione a Commodore Computer Club è 
aperta a tutti gii utenti di sistemi CBM che abbiano 
sviluppato programmi e routine originali c d’inte- 
resse generale o che desiderino fare partecipi gli 
altri lettori delle scoperte e delle osservazioni fatte 
per una migliore utilizzazione di queste macchine* 





Allegate un breve articolo in cui spiegate a che 
serve il programma, come funziona, su quale com- 
puter gira e con quale configurazione (espansa, non 
espansa, eco*)* 

* Iniziate tutti i listati con delle Rem indicanti il 
titolo del programma, il nome, f indirizzo ed il tele- 
fono deirautore. 

* Inviate i listati su disco o su cassetta, (su carta 
verranno irrimediabilmente cestinati). 

Per compensarvi per questa spesa la redazione vi 
spedirà a stretto giro di posta due cassette e/o di- 
schetti nuovi per ciascuna cassetta da voi inviata, 
indipendentemente dal fatto che il programma regi- 
strato venga accettato per la pubblicazione. 

Ciascun articolo e/o programma pubblicato, in- 
vece, verrà compensato con l’invio d’una intera sca- 
tola di cassette c/o dischetti. 

Gli autori, naturalmente, si assumono ogni re- 
sponsabilità circa l’originalità dei lavori inviati i cui 
diritti di riproduzione si intendono ceduti illimita- 
tamente all’editore di Commodore Computer Club 
per l’utilizzazione sulla rivista, per la partecipazio- 
ne a banche per lo scambio di programmi e cosi via. 


suono 


N sistema acustica VIC 

il sistema acustico del VIC è costituito da quattro 
operatori acustici indipendenti con un intervallo di 
frequenza di tre ottave ciascuno. Tre dei quattro 
generatori danno un suono “puro", mentre il quar- 
to genera un “disturbo bianco", termine con i] qua- 
le si indica il disturbo che ha un ampio spettro di 
frequenza e viene usato per creare una vasta gamma 
dì effetti acustici, come ad esempio, le esplosioni, 
che sarebbero difficili da sintetizzare partendo dal- 
ia serie dei tre suoni puri disponibili. 

Inoltre, il sistema permette il controllo del volu- 
me interamente da programma e poiché il suono 
non può essere provato se non con il volume alza- 
to, cominciamo proprio da qui. 

Controllo del volume 

Il livello del suono è stabilito fissando con 
Istruzione POKE a 3687S un valore compreso fra 
0 ae 15, Lo zero rappresenta il volume più basso, ii 
15 il più alto, II livello acustico relativo è fissato 
dalla manopola del volume che si trova sul vostro 
televisore. Notate che il VIC agisce sui valori interi 
fornendo quindi 1 6 livelli acustici (comprendendo 
lo zero), cosicché accendendo con il comando PO- 
KE alla locazioe di memoria 36878 e inserendo il 
valore 4.99, si imposta il volume al livello 4. 

Controllo delle tonalità 

I tre generatori di suoni puri vengono attivati 
accedendo con il comando POKE alle locazioni 


36874, 36875 e 36876, il generatore di disturbi, 
accedendo alla locazione 36877. 1 valori che posso- 
no essere inseriti con il comando POKE sono com- 
presi fra 128 e 255 inclusi. I valori fuori limite o 
non producono alcun effetto o generano un errore 
di sintassi. Per spegnere un certo generatore di suo- 
ni, è comunque consigliabile utilizzare il valore 0. 
Notate che Pinserimento dello stesso valore nelle 
locazioni 36874, 36875 e 36876 provoca tre suoni 
diversi e che i suoni si alzano con i valori da 1 28 e 
254 mentre il valore 255 provoca la generazione di 
un tono basso. 

Ì0 REM SUONO: I i 
28 GQSUS 1688 

38 SET IF THEH 38 

48 IF Fi$= 15 3t THEM END 
58 GOTO 23 
63 : 

73 ; 

63 : 

1800 REM BUE NOTE 
10-0 POKE 36878,13 
1828 FOrt H= 1 IO 5 
1330 POKE 36374 j 248 
1840 POR 3-1 70 375 
■058 NEXT 

1068 POKE 36374 j 238 
j.878 POR S*1 7C 375 
i. 688 HE#7 3 
l 03O NEXT N 
^ 1 08 POh 1 " 368 r 4 1 0 
1110 POKE 36878 > 0 
l 120 RE i URH 
1138 : 

1140 * 

Tabella t Routine a due tonalità 

Nelle tabella l è riportato un semplice pro- 
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gramma per 7 alternanza di due note. La linea 1010 
attiva il tutto volume, le linee 1020 e 1090 pro- 
vocano le ripetizione per dieci volte dei due toni, la 
linea 1030 attiva il valore di nota 240 e il loop 
FOR (dalla linea 1040 alla linea 1050) produce un 
ritardo che indica per quanto tempo deve essere 
mantenuta la nota. La nota alternativa (valore 230) 
viene quindi suonata e mantenuta con le stesse mo- 
dalità dalle linee 1060, 1080 e alla fine dei dieci 
cicli, la linea 1100 spegne la nota e la linea 1110 
abbassa completamente il volume. 

E* importante concludere qualsiasi routine per 
la generazione di suoni con istruzioni che interrom- 
pono il segnale acustico e riportano il volume a 
zero. Non facendolo, per il fatto di utilizzare il 
comando PGKE, le locazioni cui si è acceduto con- 
servano il loro stato che influenza eventuali pro- 
grammi successivi. Questa considerazione è altret- 
tanto importante nell'ambito dello stesso program- 
ma in quanto gli effetti acustici vengono per lo più 
incorporati sotto forma di subroutine. Tutti i pro- 
grammi di questo capitolo sono stati scritti sotto 
questa forma e per questa ragione hanno come ulti- 
ma linea un'istruzione RETURN. 


2170 per fare in modo che, la prossima volta in cui 
verrà eseguito, decrementi L da 15 a 0. Questo 
secondo passaggio del loop è ottenuto per mezzo 
del loop J (dalla linea 2060 alla linea 2180), 

2800 REM SIRENR CHE PRSSR 
200-:' REM E SI fiLLOSTRNR 
2010 T=£40 
2020 E- 10 
2038 

2048 V=t5' 

2050 Z=1 

2060 FOR J=1 IO 2 
2070 FOR L*X TG V STER Z 
2080 F0KE 36879, L 
2090 P0KE 36B75, T 
2100 FOR 8=1 T0 375 
21 10 NEXT S 

2129 li = -D 

2130 T = T+B 
2148 NEXT L 
2150 X=15 
2160 Y-0 
2170 2 » -i 
2130 NEXT J 

2190 PQKE 36375,0 
2208 RETURN 

TabaJla 2 Passaggio di una sirena 


Controllo del tono e del volume 

Nel paragrafo abbiamo usato una versione più 
completa della routine precedente che simula iJ 
passaggio di una sirena. Il programma nella tabella 
10.2 dimostra il modo in cui può essere variato il 
livello acustico e può essere modificata la nota per 
mezzo di variabili di manipolazione. 

Il loop FGR, che va dalla linea 2070 alla linea 
2140, serve a controllare il livello acustico. Stabi- 
lendo per le variabili X, Y e Z rispettivamente i 
valori 1, 15 e I , prima del loop, si ottiene un incre- 
mento del livello in corrispondenza della linea 
2080 (FOKE 3 6878, L) per ogii passaggio del loop 
a partire da 1 fino a 15, con il risultato di ottenere 
che il suono dentro il loop diventi sempre più alto. 
Non appena viene raggiunto il volume massimo 
(dalla linea 2070 alla linea 2140), il loop viene ab- 
bandonato mentre vengono modificati i suoi para- 
metri in corrispondenza delle linee 2150, 2160 e 


Nel programma precedente (tabella 1 X i due 
suoni sono stati prodotti da due diverse istruzioni 
POKE e due serie di loop ritardanti identici. Per i 
programmi piu lunghi, esistono metodi di program- 
mazione alternativi che consentono di evitare le ri- 
petizione di Enee di codice simili fra loro. II pro- 
gramma che stiamo esaminando (tabella 1 0.2) illu- 
stra come funziona uno dei metodi alternativi pos- 
sibili per la produzione di una coppia di suoni. 

Uno dei due valori di tonalità richiesti dal pro- 
blema viene dichiarato come T nella linea 2010, 
mentre nella linea 2020 viene dichiarata come D la 
differenza fra i due valori previsti. Nel loop di con- 
trollo del volume principale il suono è generato con 
la linea 2090 e mantenuto per tutta la durata del 
loop di sostegno (dalla linea 2100 alla Enea 2110). 
Le linee della 2120 alla 2130 provocano la modifi- 
ca del valore di tono prima del passaggio successi- 
vo. Più in particolare, la prima fa si che la differen- 
za di tonalità sia alternativamente +D, -D, +D, -D e 
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A DlVlHON w aie 


QUANTI COLORI 
■ HA LA TUA 
STAMPANTE 


NEL 1383 LA SEIKQSHA PER PRIMA RL MONDO 
E' IN GRADO DI PRESENTARE LA NUOVA STAMPANTE 
GRAFICA A SETTE COLORI. 


RIUNITE IN UN APPARECCHIO PRATICO E COMPATTO 
LE CARATTERISTICHE DELLA STAMPANTE E DEL PLOTTER 
LA SEIKCSHA INVENTA UN NUOVO TIPO DI PERIFERICA 
CHE BEN PRESTO SARA' INSOSTITUIBILE. 


REBIT COMPUTER E' ORGOGLIOSA DI LANCIARE 
QUESTA NOVITÀ' ASSOLUTA SUL MERCATO ITALIANO 
AD UN PREZZO MOLTO, MOLTO COMPETITIVO : 

MENO DI UN MILIONE. 

MENO DI UNA COMUNE STAMPANTE IN BIANCONERO. 


COMPUTER 







4> 


"Nòfne" 


"JET 


Inizializza il disco 


Load "Nonne", 8,1 

Carica il prog. in Ling. Macc, "Nome" 

"V0" 

Cancella ì file impropri 

Save "Nome", 8 

Registra su disco II prog: "Nome" 

"C0. unico -0 parte 1,0- parte 2" Concatena 2 fife In un se 

Save JJ @0: Nome" 

Registra, sovra pp. r i l prog: "Nome' ' 

"C0: nuovo =0; vecchio" 

Duplicaìl "Vecchio" file 

Verìfy '.8 

Verìfica l'ultimo programma 

,r R0: nuovo = vecchio" 

Cambia in "Nuovo" il m 

"N0: intestazione, XX" 

Formatta il disco con ID =XX 

”S0 primo, secondo" 

Cancellai file. "Primo" 1 


1 LEGENDA 

1 Comando 

Abbrev, 

1 Codice 

Codice 

■ Cc 

Commodore 

1 (dee m ) 

(esadec.) 


Reset del 
I sistema; SYS(x) 


I PRINT 

1 153 


Vie 20. X - 64802 


| CBM64.X - 64738 


j INPUT 

1 133 


35 


COLORE 


CHRI 


SCHERMO 


CARATI 

SPEC. 


SOLO 

PER 

Vie 20 


Arane. 

132 


AND 

175 


DIM 

134 


LEFTS leF 

200 CS 


PRINT# pR 

152 98 


SPCC 

166 


VÉRIFV vE 

149 95 


Marrone 


149 

9 [Pagi ieri Po 


END 

128 


READ 

135 


SQR 

186 


LOAD 

147 


Restore reS 

140 8C 


STEP 


WAIT 

146 


G3 


CHRS 

199 


MIDS 

202 


Return reT 

142 SE 


CLGSE 

160 


NEXT 

130 


RlGHTS ri 

201 C9 


STRS 

196 


COMANDI SENZA ABBREVIAZIONE 


BC 


NEW 

162 


CLR eL 

166 9C 


GET g£ 

161 Al 


NOT nO 

168 AB 


RND rN 

187 BB 


COS 

190 


BE 


BO 


CMD 

157 


GOSub go$ 

141 BD 


OPEN o P 

159 9F 


RUN 

138 


TABC tA 

163 A3 


A5 


POS 

185 


09 


10 


Grigio 1 


Grìgio 2 


Viola 

156 


Verdino 

153 ■ 


13 


Celeste 
154 mr 


14 


Grigio 3 


155 


lElGiallino 


Giallo 

15S 


VEDI CHR3 I8J CHRS 191 


CHRS '.14) CHRS (142) 


PUNTATORI PIU' USATI 

LO 

HI 

RELATIVI A: 

43 

44 

START BASIC 

45 

46 

START VARIABILI 

47 

48 

START ARRAY 

49 

50 

FINE ARRAY 

51 

52 

STRINGHE 

53 

54 

FINE STRINGHE 

[ 55 

56 

TOP QF MEMORY j 


SUONO COMMODORE 64 


LOCAZIONI UTILI 



54272 

NOTE 

0 T 255 


BIT 4 A 7 

BIT 0^3 



54273 

MUSICA Li 

54277 

ATT AC K 

DE CAY 

0 -r 255 


54276 

17 = TRIANG. 

542 7 B 

SUSTA IN 

RELEASE 

0 Y 255 


[FORME 33 = S1NUSQI. 
Id'ONDA 64 = PULSAN. 

129 = RUMORE 


54274 SOLO PER 

54275 ONDE PULS. 


0 t- 25B 
0-F 15 


54296 VOLUME 0 ir 15 

N.B. 


X = PRIMA VOCE 
X + 7 - SECONDA VOCE 
X 4- 14 " TERZA VOCE 


SUONO 


X - 36874. Y 
X = 36 87 5. Y 
X = 36876, Y 
X = 36B77.Y 
X = 36378. Y 





ropn 


un solo "Unico" 


* f ileqol ngme"Nuovo” 


'* il ndme d^l' 'Vecchio" file 


mo" "Secando" 


CONiT 

eO 

DATA 

dA 

154 

9A 

131 

83 

GOTO 

gO 

INPUT# iN 

737 

89 

132 

84 

PEEK 

PE 

POKi 

PO 

194 

C2 

151 

97 

SA Vi 

sA 

SGN 

sG 

141* 

94 

180 

B4 

THEN 

tH 

use 

uS 

167 

A7 

183 

B7 

GET# 


IF 


161+35 Al +23 

139 

8B 

rem! 


TAN 


743 

SF 

192 

CO 



1 Solo CBM 64 


CBM 64 e VIC 20 


PRINTCHRS (X) 


5 Bianco 

37 

rj o 

55 

7 

73 

I 

91 

[ 

109 

E 

127 ^ 

158 Giallo 

SCe, Blocco 

38 

& 

56 

8 

74 

J 

92 

jC. 

iio 

12 

133 11 

159 Azi tir. 

9 Ca. Sblocco 

39 

' 

57 

9 

75 

K 1 

93 

] 

111 

□ 

134 n 

160 Spazio 

12 Return 

40 

c 

58 


76 

L 

94 

T 

112 

□ 

135 tt 

161 

E 

14 Min Mai 

41 


59 

| 

77 

M 

95 

* 

113 

% 

136 * 

162 

y 

17CRSft\ 

42 

# 

60 

< 

78 

N 

96 

a 

114 

Ù 

137 * 

163 

rj 

18RVS.ON 

43 

+ 

61 

- 

79 

O 

97 

53 

115 

a 

138 « 

164 

□ 

19 Home 

44 

r 

62 

> 

80 

P 

98 

m 

116 

□ 

139 * 

165 

□ 

20 Del 

45 

— 

63 

7 

81 

G 

99 

B 

117 

12 

140 « 

166 

m 

28 Rosso 

46 


64 

@ 

82 

R 

100 

a 

118 

% 

141Shift+ 

Return 

167 

□ 

29CflSR > 

47 

/ 

65 

A 

83 

S 

101 

□ 

119 

É 

142 MaiuSr 

168 

id 

30 Verde 

48 

0 

66 

B 

84 

T 

102 

□ 

120 


144 Nero 

169 

E 

31 Blu 

49 

1 

67 

C 

85 

U 

103 

D 

121 

□ 

145 Cui*./ 

170 

□ 

32 Spazio 

50 

2 

68 

D 

86 

V 

104 

ET 

122 

S 

146RvsOff 

171 

E 

33 1 

51 

3 

69 

E 

87 

w 

JOB 

□ 

123 

EB 

147 Home 

172 

La 

34" 

52 

4 

70 

F 

38 

X 

106 

g 

124 

a] 

148 Ins. 

173 

E 

35 # 

53 

5 

71 

G 

89 

Y 

107 

E 

125 

CD 

156 Viola 

174 

E 

36 $ 

54 

6 

72 

H 

90 

2 

108 

□ 

126 

ir 

157 ^ 

CRSR 

175 

Q 


176 [5 

177 g 

178 s 

179 g] 

180 □ 

181 E 

182 U 
103 r| 

184 n 

185 L 

186 □ 
le? □ 
188 :■ 
1B9 H; 
190 H 

, 191 S’ 

129 Arane. 

14 9 Ma ir. 

150 Rosa 

151 Grigio 1 

152 Grigio 2 

153 Verdino 

1 54 Celeste 

155 Grigio 3 

192 4 223 Vedi 96 4 127 

224 4 254 Vedi 160 4 190 
255 = 126 


I 
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Cancella 

lehefmo 

147 U 

InBBfim. 

«rati. a 

|| 

Cursore 

In alto r^i 

19 H 

Cancella 

Larari. k ^ 

20 U 



LEGENDA; CHRS 

Codice Ascii 

Caratteri Grafici 

O Colorì aggiuntivi 
CBM 64 


(^) Comandi speciali 


Noma + Shift 



NO VIC 20 (POKi X, Y) 


\y = 128 4 255 Prima tonalità 
j.Y - 128 4 255 Seconda tonalità 
L Y = 128 "I" 255 Terza tonalità 
*y = 128 4 255 Rumore bianco 
LY - 04 15 Volume 


CU H SOR 

) ’ 45 □ 

CUflSOR 

- Il 

CURSOR 

OUflSOR 

» m 


COLORI 

BORDO 

FONDO 

Val. Standard 

VIC 20 

36879 

BIT 04 3 

36879 

BIT 4 4 7 

27 

> 

CSM 64 

53280 

53281 

254 246 


| VIC 20 

Versione base 

+ 3KRAM 8 416 K 

Basic 

“ % 

4096-7679 

1 024-7679 

4608 4 

1000 1 OFF 

04001 OFF 

1200 4 

Schermo 

7680-8191 

7680-8191 

4096-4607 

1E00-1FF-F 

1E00-1FFF 

1000- UFF 

rr - 

\S 5 

38400389 M 

38400-3891 1 

37638-38399 

9600-97 FF 

9600- 97 FF 

9400-95FF 

CBM 64 BASIC 

SCHERMO 

COLORE 

# 2048-40959 

1024-2023 

55296-56295 

3 0800-9FFF 

040007 E 1 

D80Q 
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cosi via ad ogni passaggio successivo, mentre la li- 
nea 2130 modifica il valore di tonalità alternativa- 
mente nei due valori richiesti. Notate che al primo 
passaggio, la variabile T viene modificata “in giù”, 
quindi il valore iniziale di T (linea 2010) ha biso- 
gno di essere la più alta fra le due note. 

La penultima linea (2190) spegna il generatore 
di suoni, mentre il volume è già completamente 
dato che il valore finale di L nel loop esistente è 
uguale a zero. 

Effetti acustici 

La generazione di effetti acustici dipende dal 
controllo software dei relativi parametri. Benché 
siano possibili infinite variazioni, le caratteristiche 
principali da tenere in considerazione sono le se- 
guenti: 

a) le frequenze e la loro progressione nel tempo; 

b) la combinazione delle frequenze; 

c) il volume e le sue variazioni nel tempo; 

d) il rapporto suo no -silenzio. 

La frequenza può essere progressivamente modi- 
ficata mediante il loop POR. La progressione in 
basso delle frequenze, come ad esempio quella pro- 
dotta da un oggetto in caduta, può essere ottenuta 
ì partire dal programma riportato nella tabella 3, 

3800 REM OGGETTO CHE,-. ORDE 

3018 POKE 36373,15 

3028 FGR T=£40 TG 130 STEP -1 

3030 POKE 36376, T 

3048 FGR $=i TQ 38 

3856 NEXT S 

3063 NEKT T 

3073 POKE 36876,8 

3388 POKE 36378,0 

3096 RETURN 

Tabella 3 Un oggetto in caduta 

Una combinazione di frequenze si può ottenere 
per esempio modificando il loop FOR alla linea 
3020 in modo che si presenti nella forma: 

3020 FOR T = 130 TO 240 


programma di simulazione del passaggio di una sire- 
na (tabella 10.2). Un effetto sonoro spesso utile è 
quello delTesplosione che può essere prodotta uti- 
lizzando il cosiddetto “disturbo bianco” (cioè PO- 
KE 36877) e facendolo morire lontano con un pro- 
gramma come quello riportato nella tabella 4. 
4000 mi ESPLOSIONE 
4010 POKE 36377, 140 
4828 FGR L*15 TG 0 STEP -1 
4330 POKE 36378, L 
4840 FOR S^l TO 158 
4850 NEXT S 
4068 NEXT L 
4870 POKE 36877,8 
4886 RETURN 
■ 4090 ■ 

Tabella 4 L'esplosione 

11 rapporto suono-silenzio è importante per ef- 
fetti sonori come ad esempio quello prodotto dal 
telefono e simulato con il programma riportato nel- 
la tabella 5. 

La prima linea (5010) produce un accensione a 
tutto volume che viene abbassato completamente 
con l’ultima linea (5160) prima del RETURN. 

5030 REM SQUILLO DI TELEFONO 
5005 : 

5810 POKE 36876,15 

5926 FOR R"1 T0 5 

5838 FGR N“Ì T0 2 

5048 FOR 7-1 T0 28 

5858 POKE 36876,238 

5860 FOR 3-1 TO 5 

5078 NEXT 3 

5886 POKE 36876,0 

5830 HEXT T 

5108 FOR B*1 T0 ”8 

5110 NEXT U 

5120 NEXT N 

5130 FOR P=i T0 1006 

5140 NEXT P 

5153 NEXT R 

5160 POKE 36373,0 

5170 RETURN 

5138 • 

Tabella 5 II telefono 


simulando la scomparsa di un oggetto con un im- II loop FOR esterno (dalla linea 5020 alia linea 
prowiso aumento delle frequenze. 5150) ripete il suono di base per cinque volte, le 

Le variazioni di volume sono già state viste nel linee dalla numero 5030 alla numero 5120 forma- 
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no un altro loop FGR, che produce due trilli in 
rapida successione e, infine, le linee 5130 c 5140 
formano una pausa relativamente lunga prima che 
finterò ciclo venga ripetuto. 

Nel loop FOR il suono puro viene modificato 
(dalla linea 5040 alla linea 5090) in un effetto simi- 
le al trillo, mediante la generazione di 20 battute 
dello stesso suono, sostenuta ciascuna nelle linee 
dalla 5060 alla 5070 per un breve periodo di tem- 
po. 

In questo capitolo, abbiamo visto solo alcuni 
degli effetti acustici che è possibile ottenere con il 
VIC e, in tutti gli esempi riportati, il cambiamento 
progressivo dei modi di controllo da parte del loop 
FOR del volume o della frequenza eia lineare. Esi- 
stono invece altri interessanti effetti che possono 


essere prodotti con forme di progressivi esponen- 
ziali o di altro tipo o variando con la funzione 
RND, volume, frequenza e/o tempi. 

Esercizi 

Scrivete un programma che produca le note se- 
guenti: 

(1 numeri fra parentesi indicano la durata relati- 
va di ciascuna nota). Provate inoltre a cambiare i 
colori sulla base delle note suonate. 1 valori del 
comando POKE per le note musicali sono riportati 
nell’Appendice G. Il programma che permette di 
raggiungere lo scopo è riportato nell’Appendice 
Al 8, 
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Vie 20 


Tastiera 


Un programma musicale che potrebbe interessare gli utenti del Vie 


LE capacità musicali del Vie pos- 
sono essere sfruttate in moltissi- 
mi programmi; in generale, però, 
la difficoltà principale che si in- 
contra consiste nel l’associare i ta- 
sti del computer alle note da suo- 
nare. 

Ecco un programma che vi- 
sualizza sullo schermo una tastie- 
ra con 15 note (dal do al mi di- 
rottava successiva) con possibi- 
lità d’uso delle tré tonalità, me- 
diante i tasti FI, F3, F5. 

Premendo i tasti relativi alte 
n ote si vedrà contemporanea* 
mente una pallina spostarsi, indi- 
cando la nota che viene suonata 
in quel momento. 

Con un po’ di pratica sarà 
quindi possibile suonare guar- 
dando solo la tastiera sullo scher- 
mo. 

Spiegazioni sul listato: 

* le linee 10-60 unitamente al 
sottoprogramma 2000 e al bloc- 
co dati 3000-3004 fanno appari- 
re sullo schermo la tastiera; 

• le linee 74-108 richiamano i 
sottoprogrammi 1000-1 1 70, che 


generano i suoni e fanno spostare 
la pallina; 

* le linee ! 10-114 richiamano i 
sottoprogrammi 1 180-1 200, che 
cambiano la tonalità. 


rispondere ad altri strumenti da 
voi in possesso, agire sulle linee 
1000, 1010, 1020,.^ 1170. 

Giampaolo Cervone 

Via Vicenzo Riolo, IO 9QT39 Palermo 
Tel, 580061 


Se le note non dovessero cor- 


1 REM TASTIERA MUSICALE m* 

2 REM PER VIC 28 SENZP ESPANSIONI 

3 REM GIANPAOLO CERVONE ■"'PALERMO - * 

4 REM TEL. 538061 VIR V. RIOLO 

5 F0KE3SS79.- 93 'FRINÌ !: IT : 
j@ CA-7633* CC-3S408 

11 V-36S78 : S-3SS7S 

12 J=53 

15 F0RKs29ST033S 
28 D0SUB2838 ; NEH T 
22 J»9S 

25 EGRK= 1 36TC2S4STEP2 
3 @ DO 3 il B20 8 8 : NE X T 
35 REfìuK : IFK~~ 1G0T04 7 
48 OO3UB2800 

Do ! i.ìJìO 
47 J-160 

58 RERDK : IFK- ~iGGTGE7 
55 3OSUB2000 
m GQT058 

67 FRINÌ l\ E T V U 0 P !1 

68 FRI NT" RSBFGHJKL 

69 FGKEV.- 15 

78 FF 1 N 7 1 T 1 11 : PR I NT 

71 PRIHT’TS^Ór 5 SPRINT 

7 2 RR I NT T 3= £33 SI 11 ; PR I N T 
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73 PRINT : 'SPflZI0=$7GP'' 

74 GETPS 

75 IFS3» °R n THENGGSuE 1833 
73 I FRÌ= H r THEX3 C3UB 1313 
90 I FR*« !: S" THEHGOSU11320 
SS: I FR$»“ 7BEHGG SUB 1333 
33 I Ffi$= 2 " 7HEMG0SUÈ 1048 

54 I Ffi$ = " F " THENGGSUE 1333 

55 IFP*»’ s ?"-THSN8OSUB13€0 
SS I Ffi$= " G 7HEN SCSUB 1873 

33 I FRs== " V !! 7HENGQSDB1880 
32 IFflÌi«"H ,, THENGOSlJIBlB90 

34 IFfWf«"U"THEHQ0SUE1133 
36 1 Ffii»- J"7HEN003UB 1113 
38 : rfi$* “K“ THENGGSUE 1 1 23 
J SS I FSS= ,! 0 " THENGGSUE 1 133 
182 IFR$= ;, L’ : THSNGO3LÉS1140 
184 I FR $* " P " THENGQSUB 1 1 50 
186 iFfiSa 11 ;” THENGGSUE 11S0 
138 IFS#=" "THENGGSUE 1173 

1 13 IFRS a CHR$( 1 335 THENGGSUE 1 183 
USI FÉ&»CHR* < 1 34) THENGGSUE 1190 

1 14 IF3$*CHR$< 133)THENG0SUB1239 


123 -3GTG74 
1833 FGKE3U83 
1331 SG3UE2308 

1 032 ?Gi<ECS+2S5,81 - RQKECG+2S5, Z ■ K~265:J=32 
1005 RETURN 
1813 FGKE3U53 
1311 GGSU3208B 

1012 FOKECS* 156.81: POKEC0+ 155,0 = > 1 55 = J“i 60 
ISIS RETURN 
1822 PCKES, 19S 
1021 GGSUE2080 

1 222 FGKECP+267, 3 1 = POKECQ+267 , 8 : >257 : >32 
182.5 RETURN 


1033 

ISSI 

1832 

1335 

1340 

1041 

■042 

1045 

1853 

1051 

1352 

1355 

1863 

ISSI 

1862 

1365 


FGKE3.. 133 
GOSU820SS 

?OKE8:> 158, Si : PGKEC0+ 1 53 , 

RETURN 

RGKESj 233 


@ : K=15S 1 J~iS8 


GG3UB2833 

POKECfl+269, 31 = PGKECO-» 252. 3 = K=263 : >32 

RETURN 

PGKES..285 


GOSUB2000 

FGKEGR+27 1 , SI = POKECO+271 , 3 = >271 ■ >32 

RETURN 

P0KES,288 

GDSUB2333 

PGKECn-:- 1 62 ,31 = POKECG+i 62 - 3 = K= ì £2 = > 1 SS 
RETURN 
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1070 POKES, 21 1 

1071 COSUB2000 

1 072 POKECfl+273 ,81 ' POKECQ+273, 0 : K*273 : J*32 
1075 RETURN 

1080 POKES, 213 

1081 GO SUB 20 00 

1082 POKECfi+164, 81 : PQKECO+164, 0 ! K B 164 1 J“160 
1085 RETURN 

1090 POKES, 216 

1091 GOSUB2000 

1 092 POKECfi+275 , 8 1 : POKECO+275 , 0 : K=275 : J=>32 
1095 RETURN 

1100 POKES, 218 

1101 GOSUB2000 

1102 FOKECR+ 1 SS , 8 1 : POKECO+Ì66, 0"K=166* J-1S8 
1105 RETURN 

1110 POKES, 220 

1111 OOSU52000 

1112 PGKECR+277 , 8 1 1 POKECO+277 , 0 : K*277 : J»32 
1115 RETURN 

1120 POKES, 222 

1121 GGSUB2000 

1122 POKECR+279,81 :POKECO+279,0‘K*279'. >32 
1125 RETURN 

1130 POKES, 224 

1131 GOSUB2000 

1132 POKECR+ 170 j SI : POKECO+ 1 70 , 0 : K B 1 70 : >1 60 
1135 RETURN 

1140 POKES, 225 

1141 GOSUB2000 

1 1 42 PQKECfl+28 1,81 ■ POKECO+28 1 - 0 ■ K-28 1 ■ J*32 
1145 RETURN 

1150 POKES, 227 

1151 GOSUB2000 

1 1 52 POKECR+ 1 72 , 8 i •• POKECO+ 1 72 , 0 : K- 1 72 = > 1 60 
1155 RETURN 

1160 PQKES , 229 

1161 GOSUB2300 

1162 POKECR+233, 81 : PQKEC0.+263, 0^=283 : >32 
1 165 RETURN 

1170 POKES, 0: RETURN 
1100 POKES, «= 3*36876: RETURN 
1190 POKES, 0 r S*36875 : RETURN 
1200 POKES, 0: 8=36074 ; RETURN 
2000 POKECR+K , J : POKECO+K , 0 : RETURN 

3000 DRTR66 > 72 , 00 , 96, 88 , 94:» 102 , 188,118, 116, 124, 130, 132, 138 

3001 ERTA 146, 152, 154, 160, 168, 174, 176, 182, 190,-1 

3002 BRTR68, 70 ,74,76,78,82,84,90,92,96,98, 100, J 04, 106, 112, 114 

3003 DRTRÌ18, 120, 122, 126, 128.134, 136, 140, 142, 144, 148, 150* 156 

3004 DRTH158, 162, 164,166, 170, 172, 178, 180, 184, 186, 188, 192, 194,-1 

RERUV. 
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Controllo del cursore 
e videogiochi 


Un sotto programma utile per generare videogame s. 


Tabella 1 

Indirizzi delle locazioni richiamate nell'articolo. 

Config, 

Inespanso 

+3K 

+BK in poi 

Locai ioni 




Basic 

4096 7679 

1024-7679 

4608 in poi 

Schermo 

768*>8Ì91 

7680-8191 

4096-4607 

Colore 

38400-3891 1 

38400 38911 

37888-38399 


SCRIVIAMO malvolentieri arti- 
coli sui videogiochi perchè rap- 
presentano il prodotto deteriore 
di una malsana società consumi- 
stica, ma soprattutto per via che 
i nostri redattori non sono mai 
riusciti a conseguire un punteggio 
dignitoso (ma come fanno certi 
dannati ragazzini a raggiungere 
“score” incredibili? ). 

Scherzi a parte profitteremo 
anche stavolta per fare un po’ di 
didattica, consentendo ai princi- 
pianti di capire in che modo sia 
possibile, in un videogioco, spo- 
stare lungo lo schermo un,., qual- 
cosa (pedina o cursore). 


Un cenno allo locazioni 
di schermo 


Ad ogni carattere visualizzabi- 
le sudo schermo, corrisponde una 
locazione di memoria, nella quale 
è possibile “scrìvere” il carattere 
stesso. Ne deriva che le locazioni 
di schermo sono 506, valore que- 
sto, dato dal prodotto di 22 co- 
kmne per 23 righe. In effetti la 
quantità di memoria RAM neces- 
saria per la gestione dello scher- 
mo è esattamente il doppio di 
506, Associate alle locazioni di 
schermo sono, infatti, da consi- 
derare altre 506 locazioni, dette, 


per brevità, “di colore”. 

11 carattere di schermo come ve- 
dremo tra breve, deve essere “co- 
lorato” affinché si renda visibile. 
Inoltre i cosiddetti indirizzi delle 
locazioni di schermo e colore 
(rappresentate da due blocchi di 
506 locazioni contigue RAM) 
cambiano a seconda della even- 
tuale presenza di espansioni di 
memoria RAM (vedi tabella 1), 

Da un attento esame ci accor- 
giamo anzitutto che la differenza 
dei valori estremi di schermo (es. 
8191-7680) risulta essere SII e 
non 506, lì motivo di questa di- 
versità esula dallo scopo del pre- 


sente articolo e sarà riproposto in 
altra occasione, Le considerazio- 
ni che seguono, terranno conto 
pertanto dei primi 506 byte di 
schermo e, ovviamente, dei corri- 
spondenti 506 byte dì colore. 
Dalla tabella si nota, inoltre, chele 
locazioni dì schermo sono in co- 
da a quelle dedicate ai program- 
mi Basic nei casi di Vie 20 in ver- 
sione base (inespanso) ed in quel- 
la con la scheda da 3K, mentre 
sono ubicate prima dell’area Ba- 
sic, nel caso di Vie dotati di car- 
tuccia da 8K oppure 16K dì 
RAM, Il motivo del cambio di in- 
dirizzo, che 'è realizzato in modo 
completamente automatico al- 
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Tatto delTaccensione del compu- 
ter, è da ricercarsi, come vedre- 
mo in altri articoli, nell’ottimiz- 
zazione della memoria disponibi- 
le. 


Prima fase per 
del listato 


la comprensione 


Eseguite nelTordinc i passi se- 
guenti: 

1/ accendete il computer dotato, 
oppure no, di un’espansione di 
memoria. 

2/ Cancellate lo schermo (tasti 
SHIFT +■ CLR/HOME). 

3/ Premete due volte il tasto Re- 
turn. 

4a/ Digitate: 


Questa operazione dovrebbe, 
a rigor di logica, fare apparire lo 
stesso carattere ® nella locazio- 
ne successiva a quella numerica 
con A (seconda celia in alto a si- 
nistra). Notiamo con sorpresa 
che ciò non accade. Ma se noi... 
71... saliamo in alto col cursore 
(tasto HOME) e lo posizioniamo 
nella seconda cella in alto a sini- 
stra noteremo che il carattere @ 
viene evidenziato ad ogni lampeg- 
gio del cursore. 

8/ Torniamo, grazie al tasto 
CRSR (quella per gli spostamenti 
verticali) sul rigo del comando di- 
gitato al punto 6 e modifichia- 
molo in: 

POKE A+1,0: POKE B+1,0 


À=768Q: B=384G0 

se non avete espansioni o se avete 
inserito quella da 3K. 

4b/ digitate: 

À-4096 : 13=37888 

nel caso in cui abbiate inserito 
P espansione RAM da 8 oppure 
16 K. 

5/ Digitate: 

POKE A,0; POKE B,G 

Se avete seguito (ALLA LET- 
TERA) le semplici indicazioni 
dovreste a questo punto vedere 
nell 1 angolo in allo a sinistra il ca- 
rattere @ (gli inglesi Io leggono, 
al mentre in Italia è invalso V uso 
di chiamarlo “chiocciola’ 1 ), scrit- 
to in nero. 

6/ Digitate: 

POKE A+1,0 


Compare, finalmente, la se- 
conda chiocciolina. 

L’esperimento appena visto 
dimostra che: 

* è possibile fare apparire in 
qualsiasi locazione dello scher- 
mo, a patto ovviamente di calco- 
larne l’indirizzo, uno qualsiasi dei 
256 caratteri Commodore (maiu- 
scole, minuscole, caratteri grafici, 
caratteri reversati); 

* è indispensabile, dopo aver tra- 
scritto il carattere nella locazione 
di schermo desiderata, colorare la 
cella stessa, servendosi del coman- 
do POKE che agisce sulla cosid- 
detta mappa del colore schermo. 
Si fa notare che se conferiamo al 
carattere visualizzato lo stesso 
colore del fondo, il carattere stes- 
so risulta invisìbile benché... pre- 
sente. Esempio: rosso su rosso, 
verde su verde, ecc. 

* quando si digita un comando 


del tipo: 

" PRINT “PROVA" 

il computer non solo provvede a 
far apparire ì caratteri desiderati, 
ma colora automaticamente le 
celle di memoria destinate ad 
ospitare i caratteri stessi. Ricor- 
rendo, invece, ad operazioni di 
POKE che interessano l’area di 
schermo è come se perdessimo tale 
automatismo, e quindi siamoco- 
stretti, per evidenziare un carat- 
tere, a colorarlo mediante un se- 
condo comando di POKE agente 
sull 1 area colore; 

* gli argomenti delle POKE di 
schermo non corrispondono sem- 
pre agli argomenti delle istruzioni 
PRINT CHR$(X). Esempio: 

la battitura di 

POKE A, 80: POKE B.O 

(intendendo con A e B le locazio- 
ni di schermo e del colore) porta 
alla visualizzazione di un caratte- 
re diverso da: 

PRINT CHRS(80) 

• ricorrendo a PRINT non ci si 
deve preoccupare dì indicare le 
locazioni di schermo che saranno 
interessate, mentre, utilizzando i 
POKE di schermo e di colore, è 
indispensabile controllare atten- 
tamente gli indirizzi prima di ese- 
guire il comando. 



Tutte le volte che premiamo 
un tasto del Vie 20, il Sistema 
Operativo (Q.S.) del computer 
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provvede a individuarlo, a codifi- 
carlo con un valore intero com- 
preso tra 0 e 255 e a memoriz- 
zarlo nella locazione di memoria 
203. Per renderci conto dì quan- 
to asserito, facciamo girare a par- 
te il microprogramma riportato 
nella riga 150 del listato pubbli- 
cato: 


150 PRINT PEEK(203): 
GOTO 150 


Non appena digitiamo RUN 
noteremo che sullo schermo 
compare in continuazione il nu- 
mero 64. Questo è infatti, il codi- 
ce del Vie che indica all’O.S* che 
nessun tasto viene premuto in 
quel momento. Proviamo ora a 
premere un tasto qualunque e te- 
niamolo pigiato: il numero 64 sa- 
rà immediatamente sostituito da 
un nuovo valore che rappresenta 
il codice relativo al tasto premu- 
to, La riga 150 serve dunque per 
esaminare i codici di ciascun ta- 
sto del Vie. 


Che cosa fa il programma 


J1 programma, per lo scopo di- 
dattico per cui è stato scritto, si 
limita a far spostare, sullo scher- 
mo del Vie, ad una velocità stabi- 
lita, un carattere controllato dal- 
la pressione di alcuni tasti: 


Y movimento verso Paltò 
R “ “ il basso 

G " " sinistra 

J “ “ destra 


Il carattere che viene spostato 
sullo schermo non è sempre lo 
stesso* Infatti nei movimenti ver- 
so il basso assume la forma di 
una “V", in quelli verso Paltò di 
■V", verso destra diventa **>** e 
verso sinistra prende la forma di 
Ho pensato, in tal modo, di 
conferire maggior... realismo al 
movimento e di dare un piccolo 
suggerimento per sofisticazioni 
da introdurre. 


Come funziona 


Volendo, il carattere che si 
muove, può lasciare dietro a sè 
una scia* Se infatti alla domanda 
CARATTERE? (Riga 180) ri- 
spondiamo con 32, il carattere si 
muover! lungo lo schermo senza 
lasciare apparentemente alcuna 
traccia (in realtà viene invece tra- 
scritto il carattere di spazio bian- 
co), Al valore 160 corrisponderà 
una scia nera e ad altri valori, 
compresi ovviamente tra 0 e 255, 
corrisponderanno i vari caratteri 
tipici del Vie, da individuare gra- 
zie alla riga 150. 

Riga 200-210 . A seconda della 
espansione posseduta e control- 
lando la tabella I , il lettore tra- 
scriverà la riga 200 (cancellando 
REM) oppure la 210. 

Riga 220 . Calcolo dei blocchi di 
memoria RAM dedicati allo 
schermo e al colore* 

Riga 230 , Invece di provvedere, 
nel seguito del programma, a co- 
lorare una cella video, dopo aver 
depositato un carattere, sì è pre- 
ferito colorare ciascuna cella del- 
lo schermo fin dall’ inizio, in mo- 


do da snellire il programma stes- 
so. 

Righe 240-290 * Esame dell’even- 
tuale tasto premuto. In caso di 
p re ss i o ne di tasti diversi da 
o di nessun tasto, si ritor- 
na continuamente (riga 290) alla 
riga 240. 

Righe 310-320. Spostamento in 
basso del carattere. Prima di spo- 
starlo è però necessario controlla- 
re che non si esca dalla mappa 
del video (riga 310)* Se infatti il 
carattere, al momento della pres- 
sione del tasto B, è già presente 
sull’ ultima riga, non ha senso da- 
re il comando di un’ulteriore di- 
scesa. 

Righe 340-350. Controllo salita 
carattere. 

Righe 370-380. Spostamento a 
destra* La cella interessata è indi- 
viduata dal valore S2 (numero di 
cella contenente il carattere PRI- 
MA della pressione di J) incre- 
mentato di un’unità; il carattere 
presente nella cella video, prima 
della pressione di J, deve essere 
sostituito dal carattere scelto alla 
riga 180. Infine (riga 380) il valo- 
re di S2 viene "aggiornato” per le 
successive elaborazioni. 

Righe 400-410. Spostamento a 
sinistra. 

Riga 440 , La variabile LO, defini- 
ta alla riga 170, consente di intro- 
durre un ritardo nello spostamen- 
to del carattere tra una cella e la 
successiva. Se infatti alla doman- 
da LIVELLO? rispondiamo col 
valore nullo, la velocità di sposta- 
mento è piuttosto elevata ed è 
necessaria una certa prontezza di 
ri flessi per il controllo de] curso- 
re. 
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Quello proposto, come già 
detto, deve essere considerato co- 
me sottoprogramma, magari da 
sofisticare, in listati di videogio- 


chi, in cui è necessario spostare 
una pedina sullo schermo. Un 
piccolo suggerimento prima di 
concludere: dopo aver trascritto 


il programma dalla rivista, inseri- 
te la riga 190, sostituite la 240 
con l’altra riportata in fondo al 
listato e... buon divertimento! ■ 


im -REM CONOSCERE MEGLIO IL 7 IO 20 ÌM 
i}0 RB* M# 

120 REn ««« ROUTINE FOHDRMENTRLI PER *** 

130 REM «# Lfì QENERBZIONE DI GIOCHI *** 

140 *: 

15S REM FRINÌ FEEK <203>- GOTO 159- ESBME CODICE CRRRTTERE 

IS0 : 

170 INPUT "LIVELLO < 0-1000 LOOP ■ REM DIFFICOLTÀ' = RITROSO 

180 INPUT ‘CARÀTTERE C0-235> : H ; Cfi ■ IF Cft>255 THEN 138 RE il CRR3TTERE. - - K 3CIR f! 

■ 9Q ; 

230 REM 31 = "330; CI « 33400: REM VI C IHESPflHSO 

210 Si 4036: Ci = 37330: REM VIC ESPUSO <.3fì 3K IH SU) 

223 32=3?.: S3*S 1+22*23-1 : C2=C 1 +22*23- i : PRINT "\f 

230 FOR X=C1 IO C2 -?0KE X,0: MEXT ; REM COLORAZIONE FCN3C SCHERME 

243 X * PEEK <233) : REM ESAME TASTO EVENTUALMENTE PREMUTO 

250 IF X-33 THEN OOSUB 313 : 30303 440: GOTO 243: REM TASTO 3 

260 IF X=il THEN G03UB 340: QGGUS 440: GOTO 240: rem TR3TC V 

270 IF X*19 THEN G03UB 400: OOSUB 440: 3070 240: REM TOSTO G 

283 IF X=28 THEN GG3U3 370: GOSUB 443 GOTC 240: REM TASTO J 

233 GOTC 240; REM A. HE 3IMCNE SOFTWARE "33 

235 : 

380 REM MOVIMENTO VERSO IL BASSO. 22 - CARATTERE V 
318 IF 32+22 > 33 THEN RETURN 

328 PGKE 32+22,22: POKE 32, CA :32 - 32+22: RETURN 
325 : 

338 REM MOVIMENTO IN AL T G, 38 - CARATTERE t 
348 IF 32-22 < Si THEN RETURN 

353 POKE 32-22,30: pcKE 32, CA -32 - 32-22: RETURN 
355 : 

360 REM MOVIMENTO 3 DESTRA . 22 - CARATTERE > 

378 IF 32+ 1 > So THEN RETURN ' 

333 POKE 32+1,52: POKE 32, CA :$2 - 32+1 RETURN 
335 : 

338 REM MOVIMENTO n SINISTRA. 53 * CARATTERE < 

433 IF 32-1 < 31 THEN RETURN 

418 POKE S2-I,S0: POKE 32, CR: 32 = 32-1: RETURN 

423 : 

430 REM SOTTO PROGRAM HA DI RITARDO 
443 FOR 1=1 TC LOOP ' NEVI ‘ RETURN 


READY. 

130 fì<i>=35: R<2)-11: A<3>=19: Al 4 >=20 
246 X - fl(I NT ( Rt-ffi ( I > * 4>> 
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Speciale, speciaiissimo! 

Invece dei soliti videogiochi prova VIC 20, 
e guarda quante cose fa in più! 

1. VIC 20 ha una valanga di videogiochi, uno 
più bello dell'altro, uno più nuovo dell'altro, 

2. Ma VIC 20 è un computer e fa molto di più. 

3. Lo usi per la scuola, o per la casa, o per 
la professione. Ci sono, pronti pronti. 


un mucchio di programmi. Metti le cassette 
e via con cose utili. 

4. Puoi imparare il BASIC, la lingua del 
futuro (ed è facile facile imparare 

a programmare). 

5. Nel mondo sono stati venduti più 

di un milione di VIC, a gente sveglia, quelli 
del 2000. 


MLN1: 





6. VIC 20 ora costa solo 199.000 lire 
più IVA. Da sballo, no? 

Perchè accontentarsi di un semplice 
videogioco? 

Commodore Italiana S.p.A. 

Via F.lli Gracchi 48 - Cinisello Balsamo (MI) 
Tel. 02/6125651-6123253 


Z commadore 

1 COMPUTER 


ETHOS 



Sistemi 


Ed ora passo al Pet 

Come leggere col Pet (4000 8000) ì programmi scritti con i compu ter Vìe 20 è Commodore 64 ! . 


DOVREBBE essere noto che i 
computer dotati di Basic Micro- 
soft, e in particolare i Commodo- 
re, utilizzano aree di memoria 
ben definite per deporre i pro- 
grammi delFu tenie. L’indirizzo 
di partenza dei listati è contenu- 
to in due locazioni di memoria 
che rappresentano» rispettiva- 
mente, la parte bassa e quella alta 
delFìndirizzo stesso. 

Negli elaboratori PET (qual- 
siasi serie) e nel V1C 20, dotato, 
però, dell'espansione di memoria 
di 3K dì RAM, i programmi Basic 
vengono posizionati a partire dal- 
la locazione 1024; nel Vie senza 
espansioni, dalla locazione 4096» 
nel Vie con espansioni da 8 e più 
K, dalia locazione 4608 e nel 
Commodore 64, da 2048. 

Quando impartiamo Ford ine 
SA VE» Finizio del file-program- 
ma contiene Findirìzzo di parten- 
za in cui è allocato il programma 
che sta per essere registrato. 
Quando invece diamo il comando 
LOAD, il comportamento dei 
PET si diversifica da quello dei 
VIC (20 e 64). 

Nel primo caso, infatti, il PET 
carica, sempre e comunque, il 
programma considerando F indi- 
rizzo posto in testa al file. 

Nei casi del Vie 20 e del Com- 
modore 64, invece, il programma 
viene posizionato automatica- 
mente a partire dalla locazione in 
cui il computer stesso, nella par- 
ticolare configurazione di memo- 
ria adoperato, allocherebbe un 
programma se questo fosse digi- 


tato norma meni e da tastiera. 

In altre parole, un programma 
registrato in un momento in cui 

ì 

il Vie 20 era senza espansioni di 
memoria, (locazione inizio Basic 
“ 4096), verrà posizionato, se ri- 
letto con espansione di memoria 
da 8K, a partire da 4608. 

L’utente non si accorge affat- 
to del cambiamento, proprio gra- 
zie a 1F automatismo della proce- 
dura. 

Sembrerebbe, pertanto, che 
non è possibile caricare su PET 
un programma scritto dai suoi... 
fratelli minori. Naturalmente, sia- 
mo qui per illustrarvi la possibi- 
lità di riuscire nell 1 intento, a pat- 
to di osservare alla lettera la pro- 
cedura qui di seguito riportata 
[(R)= battere il tasto di Re- 
turn ]: 

1/ caricare sul PET il programma 
in oggetto col “solito” LOAD; 

2/ quando Foperazione è com- 
pletata, non listate il programma 
per nessun motivo; 

3/ entrate in monitor digitando: 
SYS (1024) (R); 

4/ visualizzate il rigo di otto 
byte battendo: M 0400 0401 

(R); 

5/ ignorate il contenuto delle ot- 
to locazioni di memoria visualiz- 
zate dopo la fase 4/; 

6/ servendosi dei tasti di control- 
lo cursore, modificate le locazio- 
ni specificate come segue: 

• caso d i progr a m ma r egist ra t o 
con Vie 20 senza alcuna espan- 
sione di memoria: 


0400 : 00 01 10 00 00 00 00 
00 (R); 

• Caso di Vie 20 con espansione 
da 8 o più K RAM: 

0400 : 00 01 12 00 00 00 00 
00 (R); 

* caso di Commodore 64: 

0400 : 00 01 08 00 00 00 00 
00 (R); 

7/ “uscire” dal monitor digitan- 
do “X” (R); 

8/ non chiedere il listato in que- 
sto momento: il PET andrebbe in 
Tilt; 

9/ digitare: 

0(R). 

Comportandovi, cioè, come se 
voleste cancellare, da un norma- 
lissimo programma Basic, la linea 
numerata con zero, 

A questo punto il programma 
è posizionato correttamente in 
memoria: potete listarlo, usarlo, 
modificarlo, ecc. Nel caso abbia- 
te un programma di cui non si 
conosce il computer di prove- 
nienza, Punico modo è quello di 
procedere per tentativi fino a che 
non appare U listato. Si tenga 
presente che, come già detto, se 
il programma proviene da un Vie 
20, dotato di 3K RAM, non è ne- 
cessarla alcuna modifica. Se, inve- 
ce» nonostante il procedimento 
suggerito, non appare il listato o 
il PET si “impianta” ad ogni ten- 
tativo, vorrà dire che il program- 
ma in oggetto è scritto non in Ba- 
sic, ma in Linguaggio Macchina, 
oppure» è protetto. In questo ca- 
so non c’è nulla da fare... • 
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SU 


Il miglior software tecnico 
elaboratori CBM - Commodore 
ora anche disponibile 
su Commodore 64 


“S.S.-80” 


L'ormai famoso programma per il calcolo delle strutture inte- 
laiate piane in c.a., in zona sismica, che sviluppa e disegna 
anche le carpenterie delle armature. 

(Ultima versione Luglio/1 982 nostra esclusiva). 

“FONDAZIONI” 

Risolve tutti i problemi di fondazioni (trave elastica su suolo 
elastico) di strutture in c.a. in zona sismica e non, risolvendo 
l’intero graticcio di fondazione e proponendo una carpenteria 
sofisticata ed ottimizzata. 

“MURI DI SOSTEGNO” 

A gravità, a mensola o a contrafforti, anche in zona sismica, 
secondo il D.M. del 21/1/1981. 

“PENDÌI” 

Analizza la stabilità di un pendio o di un fronte di scavo sotto 
diverse condizioni e la verifica relativa viene condotta in termi- 
ni di tensioni effettive; la stima dei fattori di sicurezza viene ef- 
fettuala secondo i metodi dì Fellenius, Bishop e Jambu. 

“COMPUTI METRICI” 

Analisi ed elenco prezzi Metodo veloce e completamente 
automatizzato per il computo e la stima dei lavori. 

“REVISIONE PREZZI” 

Secondo le disposizioni di legge vigenti. Praticità ed automa- 
zione consentono di eseguire velocemente revisioni di prezzi 
anche per lunghi periodi. 

Richiedeteci documentazione e output dei programmi 
di vostro interesse. Resterete sbalorditi dalla versatità 
e dalla completezza dei nostro software. 


SIRANGELO COMPUTER Srl Via Parisio 25 - Cosenza 0984-75741 


NEW NEW NEW NEW NEW NEW NEW NEW NEW NEW NEW NEW 
È pronto il nuovissimo programma 
“ORARIO SCOLASTICO” 





Mai un grande perso 

Quest’anno, fatti un regalo intelligente: 3, Ha un’incredibile memoria (64 K), un 

un computer dalle caratteristiche incredibili. sintetizzatore sonoro professionale, produce 
Vediamole. effetti tridimensionali. 

1. Commodore 64 è potente, sofisticato, 4. Ti diverti perchè è anche un sofisticato 

professionale. videogioco. 

2. Ha una vastissima gamma di programmi 5. Con Commodore 64 entri nel futuro, 

già pronti, lo usi nella professione, a casa, tasto dopo tasto. 

a scuola, nella ricerca scientifica, con facilità 6. Commodore 64 oggi lo puoi avere a prezzo 

e totale affidabilità. davvero speciale: 


MODORE 64 



nal è costato così poco 


approfittane però perchè sta andando a ruba, 
e chi primo arriva... 

Vieni a un punto vendita Commodore: 
ti aspetta una bella sorpresa. 


Commodore Italiana S.p.A. 

Via F. Ili Gracchi 48 - Cinisello Balsamo (MI) 
Tel. 02/6125651-6123253 


fi Commodore 

COMPUTER 




Vie 20 ■ Commodore 64 - Sistemi 


Stampa in corsivo 


Una scrittura "personalizzata” con qualsiasi sistema Commodore. 


Qi Bollii Giovanni 




V V- 


'■’w 1 


Ì 


y , , li f j“ t 

■ v.!, ■■ ...ÙCliV:. 


f. ; - .„f v>0 il ‘i; 

■L Lù t hi . A L &KVÙ- -V- 


' J r ' rì ^ J_r " ^ 




f t i f; t ... ! . i ! .. .1 . ’f ... * * 

■■' i^i L '■ ■ • : -i TU‘jiU»0 iU' ■■ v' Uj-J.-' « 

! iO 


Esempio di sia mpa Ottenibile co f pfgQfarnnoa 


IL programma, che gira su confi- 
gurazione Pet 4 stampante 4022 
(o 3022) e di cui viene data an- 
che la versione per il Vie con al- 
meno l’espansione di 8K, come 
già indica il nome, serve a fare 
scrivere il computer in corsivo, 
cioè con quel tipo di scrittura 
che n oi abitualmente usiamo 
quando scriviamo a mano. 

Come si usa 

All 1 inizio bisogna attendere 
un po' - circa mezzo minuto - per 
permettere al computer di legge- 
re ed elaborare tutti quei numeri 
(circa 1500? ) che sono scritti nei 
DATA. Quindi, appare sul video 
la scritta “INTRODUCI IL TE- 
STO”, ed una linea lunga 79 ca- 
ratteri - questa è la lunghezza 
massima di una riga del testo da 
fare stampare. 

L'input del testo avviene me- 
diante l’uso de ir istruzione GET, 
il che si è reso necessario per con- 
trollare i dati introdotti; e che 
per il resto è uguale all’input: si 
può, cioè, usare il tasto DELE- 
TE, e bisogna premere RETURN 
alla fine della riga. 


In seguito si può introdurre 
un’altra riga di testo, fino ad un 
massimo dì 50 (Questo valore si 
può cambiare modificando il va- 
lore della DIMB$(5G) di riga 
270). 

Per indicare che si è finito di 
introdurre il testo, bisogna pre- 
mere all’inizio di una nuova 
riga. Se questo carattere viene 
usato non in prima posizione, es- 
so viene accettato e naturalmente 
stampato. A questo punto co- 
mincia la stampa. 

Per quanto riguarda i caratteri 
che si possono usare, essi sono: 
* tutte le lettere dell’alfabeto la- 
tino sia minuscole che maiuscole 
(minuscole shiftate); 


• tutti i caratteri numerici; 

• i caratteri di punteggiatura: 

■ ? i 
’>j* - * 

• altri caratteri che in ascii vanno 
da 32 (spazio) al 64 (a commer- 
ciale). 

Tutti gli altri caratteri non 
vengono accettati. Una volta co- 
piato il listato potrete scrivere 
tutto quello che volete e, dato 
che siamo in clima natalizio, po- 
tete mandare le vostre lettere di 
auguri scritte dal Computer... 
Come funziona 

Tutti quei numeri troppi? ) 
nei DATA servono per la forma- 
zione dei caratteri speciali che si 
possono formare usando una del- 
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le caratteristiche della stampante 
Commodore. 

11 metodo usato per la forma- 
zione dei caratteri consiste nello 
scomporre ogni lettera in tre par- 
ti: alta, media, bassa come in fi- 


gura; 

parte alta 


parte media / fj( j A 

\T/ 

parte bassa {] 



Per questa ragione per ogni lettera 
ci sono tre caratteri speciali per cui 
ci sono 18 dati per ciascuna lette- 
ra {6 per carattere per tre caratte- 
ri). 

Nella fase di stampa, per ogni 
riga di testo, verranno stampate 
tutte le parti “alte" delle lettere, 
poi quelle “medie”, ed infine 
quelle “basse”, per cui ogni riga 
di testo occupa tre righe di stam- 
pa. 

La versione V1C 

Il procedimento di formazio- 
ne dei caratteri è il medesimo, 
con Punica differenza che, men- 
tre nel Pet la formazione dei 6 
numeri per ogni carattere specia- 
le avviene tenendo conto delle 
potenze di 2 a partire dal 6 fino 
allo 0, nel VIC è esattamente 
Uopposto, come in figura, 

Pet: 2 elev. 6 Vie: 2 elev.O 

2 elev. 5 2 elee, 1 


2 elev, 0 2 elev, 6 


Per cui si è reso necessario, 
per non rifare la mappa caratteri, 
fare una “inversione”. Questo av- 
viene nelle linee di programma da 
10000 a 10012, in cui il numero 
viene trasformato in binario, 
quindi, “ribaltato” e ritrasforma- 
to in decimale. 

Altre modifiche riguardano la 
parte di stampa: 

+ 250 per i diversi OPEN e istru- 
zioni grafiche; 

+ 300 per la formazione dei ca- 
ratteri su VIC bisogna sommare 
128 al numero nei DATA; 

+ 1280 e 1290 per le istruzioni 
PRINT#. 

Per il resto la versione VIC è 
esattamente identica a quella per 
il Pet. 

Programma "crea” 

Questo programmino si è rive- 
lato molto utile per la definizio- 
ne dei caratteri 

A1P inizio chiede quale carat- 
tere dobbiamo formare, poi sullo 
schermo appaiono tre rettangoli 
di 6*7, uno sopra V altro, che rap- 
presentano le tre parti in cui vie- 
ne divisa la lettera (vedi prima). 
In fondo allo schermo appare il 
cursore lampeggiante (in input), 

A questo punto bisogna sola- 


mente salire con gli appositi tasti 
di controllo del cursore e mettere 
il carattere “Q shiftato” nelle po- 
sizioni in cui sulla stampante de- 
ve venire stampato un punto. 

Finito di formare il carattere, 
come meglio preferiamo, basta 
premere RETURN su una linea 
in cui vi siano dei caratteri (non 
importa quali, e questo lo po- 
trete capire facilmente analiz- 
zando il programma o, meglio an- 
cora, facendolo girare. 

Quindi il computer analizza i 
tre rettangoli di prima e automa- 
ticamente visualizza sullo scher- 
mo il numero di linea corrispon- 
dente a quel carattere seguito da 
un DATA che contiene i 18 dati 
trovati, ed infine, un’istruzione 
REM seguita dal carattere in que- 
stione, e sotto a questa linea c’è 
la scritta RUN, 

A questo punto dobbiamo 
premere RETURN 2 volte; una 
per memorizzare la linea che con- 
tiene i dati del carattere in que- 
stione, Tal tra per ritornare nel 
programma. 

Nel frattempo, il carattere che 
abbiamo formato viene stampa- 
to, per cui possiamo verificare su- 
bito se c’è qualche cosa da modi- 
ficare o se va bene. * 


B&llù Giovanni 
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1 00 RE M * ******************** ***** **#* 
110 REM ** C G R S I V 0 ** 
1 20 REM **************** ************** 
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13® REM ** VERSIONE PET+4022 <3022 > ** 
14® REM **#****#*■+*#*#*•*****##**#***#* 
150 REM *# BV BELLLÌ' GIOVANNI #■*■ 
160 REM ##************#**#**#*#***#-*5ti* 
170 REM ** VIA GIARDINI N. 2® ** 
130 REM ***'#********5ti#***#*r********** 
19® REM #* 20033 SEREGNO #* 
200 REM fc**********#****#****###*#*-#*;* 
210 REM m TELEFONO! 0362/23953® W* 
22® REM 

230 REM ** - NOVEMBRE 1933 - ** 


240 REM ****************************** 

250 0PEN6,4,6ìPRINT#6,CHR$<22?' ì 0PEN3,4 tOPEN5,4,5 «P0KES9463, 14 
260 FRI NT "32 ATTENDI STO MEMORIZZANDO I DATI 

270 DIMA*O35.,2>,.A<18)^B$<50) 

230 F0RK=1T0S5 

29@ FORJbITOIBìREADRCJJ sNEXTJ 

300 F0RH=>®T02 : tF0RJ=iTO6iA*<ì<,H>*Rf <K,H>+CHR$ <AC J+6*H>> sNENTJ, H,K 
313 DATA® ,3, ® , @ , 8 , ® , 0 , 0 , 0 , ® , 8 , 0, 0 ,0, ® , 0 , ®, 0 ì REMSPACE 
32® DRTR0, 0,127, 127, 0,0, 3,0,123, 123, 8, 0,0, 0,0,0, 0,0 SREM 1 
338 DAT A3 , 16,96,3, 16,96,0 ,0,0, 8, 0 , 0 , 0 , 0 , 0>@,@, 0 sREM" 

340 OATR0,0,0,0, 0,0, 0,20, 127,20, 127, 20, 0,0,0, 0,0,0 sREM# 


350 DHTR96 , 24 , 4 , 63 , 63 , 56 ,6,41 ,41,127,36,34,8,0,0,0,0,0 sREM^ 
360 DATAI ,1,1,0,0,1,99,36,104,23,37,71,0,8,0,0,0,0 sREM7. 

370 DATAI, 2, 2, 2, 1 ,8, 182,25, 9,21 , 1 14 ,5, 0,0,0, 0,8,0 :REMè 
330. OHTA8,0,6,2S,1 12,0,0,0,8,0,0,0,0,6,0,0,0,0 sREM' r 
398 DATA0, 31, 32, 64, 64, 64, 0,124,2,1,1 , 1 ,0,0 ,0,0,0, 0 :REf'K 
408 DATA64 ,64,64,32,31 ,0,1,1 ,1,2, 124 ,0,0,0, 0^. 0,0 ,0 #REM> 

410 DAT A0 , 1 , 3 , 3 , 1 , 0 , 0 , 64 , 96 , SS , 64 , 8 , 8 , 8 , 0 , 0 , 0,8 : REM* 

420 DATAI, 1,7, 7, 1,1,64, 64, 112, 112, 64, 64, 0,0, 8,0, 0,0 :REM+ 

430 DATA0, 8, @,0, 8, 0,0, 8,3, 3, 0,0, 8,4, 24, 96, 0,0:REM, 

44© DATAI, 1, 1 ,1 ,1 , 1,64,64,64,64,64,64,8,8,0,8,0,0 sREM- 
458 GATA0, 0,0, 0,8, 0,0, 8,7, 7, 7, 0,8, 0,0, 8,8,0 (REM. 

460 DATAI, 1,25,25,1 ,1 ,64. ^64,76, 76, 64, 64, 6,0, 0,0,8, 0iREM7 
470 DATASI, 32, 64, 64, 32, 31, 124, 2,1, 1,2, 124, 0,8, 0,8, 8,0 :REM0 
438 DBTA8, 16, 32464,127,0, 0,1,1 ,1,127,1 ,0,8,0, 0,0,0 sREMl 
490 DAT A4S , 64 , 64,65 , 66 , 60 , 28 , 34 , 65 , 1 , 1 , 1 , 0 ,0 ,0,0 ,0 , 0 ! REM2 
500 D ATR32 , 65 , 65 , 65 , 62 , 6 , 2 , 65 , 65 , 65 , 62 , 8 , 0 , 8 , O , 8 , 0 , 8 : REM3 
510 DATA®, 0, 1,6,24,96,0,60,63,4,31 ,4, 0,0, 0,0, 0,0 : REM 4 
520 DATR0, 127,65, 65, 64, 96,2, 1,1, 1,126, 8,0,6, 8, 0,0,8!REM5 
530 DATH7,S, 16,32,64,64, 124,2,33,33,33,30,8,0,0,0,0,0 SREM6 
548 DATAI 12, 64, 64, 65,73,1 12, 0,67, 92, 96, 64, 64, 0,0, 0,0, 0,0 sREM7 
550 DATR2S , 34 , 65 , 65 , 34 , 2S , 68, 66 , 1 , 1 , 66 , 60 , 0 , 8 , 6 , 0 , 8 , 0 ! REM8 
568 DATA60,66, 66,66 ,63,0,6, 1,1,2, 124 , 0,0,0 y 0,0, 0,0 ;REM9 
570 DATH0,0 ,8 ,0,0,0 ,8,0,99,99,0,0,8,8,0,8, 0,8 s REM : 

589 DATA0, 8,0, 0,8, G,0, 8,51 ,51 ,0,070,4,24 ,96,8,0 «REM.) 

596 DATR0 , 8 , 0 , 0 , 1 , 1,24,24, 36, 102,67,1,0,8,0,0,0 , 0 s REMC 
680 0RTA6, 6, 6, 6, 6, 6, 48, 48, 48, 48, 43, 48 ,0,0 ,0,0,0 ,8 :REM- 
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elei OflTRl , 1,0, 0,0, 8, 1,67, 102,36 „24, 24, 0,.@, 0,0, 8,0 :REM> j 

620 DHTR24 , 32 , 64 , 65 , 66 , 6@ , 8 , 0 , 1 25 , 0 , 0 , 0 , 0 ,0,0,0,0,08 REM? 

630 DftTfl©, 3,0, 0,0, 8,62, 65, 93, SS, 84, 60, 0,0,0, 0,©,0 sREM® ! 

640 DRTR8 ,0,0, 0,0 , e , 2 , 62 ,65, 65 ,62 ,7 ,0 , 0 , 0 , 0 , 0 ,0 : REM R 

650 DRTR0 ,31 , 32 ,32,31,0,2,1 24 ,31, 33 , 78 ,10,0,0,0,0,0,01 REM B 

'660 DRTR0, 0,0, 0,0, 0,2, 28, 34, 65 ,65, 2, 0,0, 0,0,0, 8 sREM C 

670 DRTR0 ,8,0,0,127,0 , £ , 30 ,33 ,33 ,127, 6 , 0 , 8 , 8 , 0 , 8 , 0 : REM D 

6S0 DRTR0, 0,0, @,0, 8,2, 52, 72, 52,2, 2, 0,0, 0,8, 8,0 SREM E 

690 DRTR0..31 ,32 ,32,31 ,0,2, 127, 13,50,66,2,0, 127,0,0,0,8 sREM F 

708 DRTR0 ,0 ,0,0,8,0,2,62,65,65,63,3,0,28,34,66,126,0 sREM G 

710 ORTR0,31 ,32,32,31 ,0,2,127, 10,52 ,93,3,0,0 ,8, 8, 0,0 sREM H 

728 DRTR8, 8, 2, 0,0, 0,2, 4, 120, 12, 4, 2, 0,0, 0,0, 0,8 sREM I 

738 DRTR8, 0,0, 0,1 ,0,3,0,8,0,63, 1 ,0,1 12,3,8, 1. 12, 0 «REM J 

740 DRTR0 ,0,0,0,0,0,2,127,3,20 , 34 ,66,0 , 0,0,0,8,09 REMK 

750 DRTRei, 31, 32, 32, 31, 0,2, 4, 120, 24, 108, 2, 0,0, 0,0, 0,0 sREM L 

768 DRTR0, 0,0, 0,8,0, 126,64, 126,64, 124,2,8,0,0,0,0,0 sREM M 

778 DRTR0 , 0 , 8 , 0 , 0 , 8 , 62 , 64 ,62 , 64 , 60 , 2 ,0,0 , 0, 0 , 0 , 8 i REM N 

730 DRTR0, 0,0, 0,1, 6, 2, 62, 65, 65, 126, 2, 8, 0,0i, 0,0,0 sREM 0 

798 DRTR0, 0,0, 0,0, 8, 2, 12, 16,96, 127,2,0,8,0,0, 127,0 sREM P 

800 DRTR8 ,0,0 , 0 ,@,0 , 2 ,30 ,33,65 ,127,2,0,0,0,0,127,0: REM Q 

310 ORTR0, 0,0, 0,0, 0,2, 12, 112, 64, 128, 6, 0,0, 0,0, 0,0 sREM R 

32© DRTR0, 8,0, 6,0, 0,2, 12, 43, 66, 66, 62, 0,0, 0,0, 0,0 sREM 3 

830 DRTR0, 16, 127, 16, 16, 0,2,4, 127, 1,2,2, 0,0,0, 0,0,0 iREM T 

840 DRTR0 ,8,8,0,0,0,2,126,1,1,1 26 ,2,0,8 ,0 ,0,0 , 8 sREMU 

850 DRTR0, 0,0,8, 8,0,30, 16, 15, 1,14, 18,0,0,0,0,8,8 s'RÉMV 

860 DRTR0, 0,0,0 , 0 ,0,2,127,2,4,2,127,0,8, @ , 8 , 0 , 0SREMI4 

870 DRTR0 , 0 ,0 ,6 , 0 , 0 , 99 , 20 , 3: , 20 , 99 ,2,0,0 , 8 , 0 ,0,0! REMK 

830 DRTR8 ,0,0,0,0,8,2,126,1,2,127,2,0,3,12,43,64,01 REMV 

896 0RTR0 ,0,0,0,0,0,14,112, 70 , 74 , 32 ,98,0,0 , 8 , 8 , 0 , 8 : REM 2 

980 DRTR0,31 ,32,32,31 ,0,2,126,1,1 , 126 , 1 ,0,8,8, 0,8,0 sREM fi 

918 DRTR0, 127,65,66,60,0,2,127,1 ,65,62,2,8,0,0,0,8,0 : REM B 

920 DRTR9S , 27 ,4 ,58 ,66 ,60 ,2 , 1 26 , 1 , 1 ,3 , 2 , 0, 6 , 0 ,0 ,0 ,0 sREM C 

938 DRTRQ , 1 27 , 64 , 48 ,15,0,2,127,1,2,1 24 ,2,0 , ©, 0,0, 0,0: REM D 

940 DRTR64, 48 , 1 5 ,52 , 36 , 24 , 2 , 6 , 73, 4 1 , 17 , 1 8 , 8 , 0 , 0 ,0 , 0 , 0 sREM E 

950 DRTR1 20 , 64 , 6? , 76 ,112 , 64 ,66,71,97,31 , 79 , 2 , 0 ,0 , 0,0 ,0 , 0 : REM F 

960 DRTR64 ,51 ,28,40, 72>1 12,2, 124,3, 1 , 15,3,6,9, 17 ,34, 124, 8 sREM G 

978 DRTR0 ,127,1,1,127,0,2,126,8,0,126,2,0,0,0,0,0, 0 sREM H 

980 DfiTRl 12,64,64,67,124,0,2,14,1 ,97, 30, 2, 8, 0,0, 0,0,0 sREM I 
998 ORTR0, 0,8, 0,127,0, 2, 1 ,1,1, 126,8,8,0,8,0,0,0 sREM J 
1080 DRTR8, 127,3,4,8, 112,2,127,0,64,48, 15,0,0,8,0,8,0 sREM K 
181© DRTR64, 56, 7, 68, 63, 56, 2, 5, 127,8,4,2,0,0,0,0,0,0 sREM L 
1028 DRTfl 1 2 ? , 64 , 1 27 , 6 4 , 1 27 , 0 , 1 26 , 8 , 1 26 , 0 , 1 28 , 6 , 0 , 0 , 8 , 8 , 8 , 8 s RE M M 
1038 DRTR48, 64, 63, 64, 127,0,2,4, 126,8, 1 24, 2,0, 0, 0,0 ,0,0 (REM H 
1040 0RTR8, 63, 64, 64, 63, 64, 2, 126, 1,1, 126,8,0 ,0,8,0 ,0,0 sREM O 
1 850 ORTR0 , 1 27 ,65,64,63,0,2,127,65,65,65,2,8, 8 , 0, 0,0,0: REM F J 
1 060 DRTR0 ,63,64 , 64 , 64 ,63,2,126,1,9,5,122 , 0,0 ,0,0 , 8 , 0 s REM Q 
1670 DRTR0, 127,64,65,62,8,2, 127,64,32,28,2,0,0,8,0,0,0 sREM R 
1 888 DRT R96 ,16,60,75,72,48,6,9,1,65,57,6,8,0,0,0 , 0 , 8 sREM S 
1090 ORT R96 , 64 , 65 , 78 , 128 , 0 , 2 , 6 0 , 78 , 1 , 1 , 6 , 0 , 8 , 0 , 0 , @ , 0 s REM T 
1 ISO DRTR0 ,127,0,0,127,0,2,126,1,1,126,2,0,8,0,0,0,0: REM U 

1110 0RTR56, 64, 127, 0,31 ,32,2,2, 126, 1,127, 2, 0,8, 0,0, 0,0 sREM V 
1128 DRTR0, 127,0, 0,0, 127, 2, 127, 6, 56, 6, 127, 8, 0,6, 0,8,0 sREM 14 
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1 130 

DfiTfl 112, i A , I. 1 4 , 1 1 2 , 0 , 3 , 28 , 36 , 28 . 2, 2 ... 8 , 8 , © , © , 8 , 8 j REM 

r. 

114© 

[ J n ' r R6 4 56 , ? , © , 1. 2 7 , 8 ,, 2 , 1 2 , 32 , 1 ©8 , , £ : , 8 , 0 , © , 8 . 3 s R EH V 


1 1S0 

ORTO 9£ ,64,64, 67 , 76 , 1 1 2,67 , 7 7,1*3,65,65,7,8,0,8,8, 8 , 8 

sREN 2 

1163 

PRirit w LT 


1 170 

RRIHT"JBffla INTRODUCI IL TESTO “ 


1 183 

F 0 R K sj; © 7 0 9 9 & k M E ' i 


1 1 S© 

GOSUB1360 


1200 

FORI«0TOW-1 


1210 

FORJ«0TOS 


1 230 

FORK«l TQLENCB$< I > > 


1230 

Ó«M1ID*<B«C I> ,K , 1 > 


1248 



1250 

I F ft>3 1 fi H DB <9 1 THENfìaR-3 1 ■ GOTO 1 288 


1260 

I FR> 1 92RNDFK2 1 9THENFMV 192 *-59 JGCT01288 ' 


1278 

PRIMI M aa ERRORE 1 sENO 


1280 

PR I NT #5 , R» C fì , J > 3 pR I NT «3, TRE < K ) CHRt < 254 ) CHR'f < 1 4 1 > ; i NEXT 

1290 

PR I NT #5 , FI* PR 1 NT# 3 , TRÉ < K > CHR* < 254 > a NEXT 


1300 

sHEXT 


1310 

PRIMI "133 FINE 11 


1320 

PRI NT" SISMI] RLTRD TESTO ?" 


1338 

OE T ft $ s I Fm<> 11 S " H NOR $ O "N"T HE N 1 330 


1 34© 

IFR#,.i i ’N , 'THENEND 


1350 

W™0iGOTO1 3.60 


1360 

P3=7S sP4=2 


1370 



1 380 

PRX NT 


1 390 

FORO*» 1 T0P3 s PR I NT ’! .? ; NEXT s PR I NT " | " ; 


1480 

POR Q » 3. TOP 3 + 1 ; PR I NT “ini NE NT 


1418 

REM 


1420 

GETHT a IFR40" " THEM1458 


1430 

FOR Jb 1 T 02© s PR I NT " _JI" ; s HE NT s GETfW ; X Ffl:tO" " THEN 1 4 S© 


1440 

r OR J rs 1 T 0 1 0 SPRINT" j3 ||g" ? s MENI ! GOTO 1 420 


145© 

1 FPT «CHR* < 3. 3 > THEMPR I NT ; » GOTO 1 6 3 3 


1468 

I F R SC < 0* ) “ 34 THE3 NPR I N TP * RT CHR* < 28 > CHR * 'E 1 48 > 1 1 ,.J ; : P * » R *+fl* t CO T 0 1 4 1 

1470 

I FP&== M ,T RNDRf -- " THEHRETURN 


1480 

I FfWOCHE £ < 28 > ODI 0 1 540 


1 498 

PRIMI" J|" ^ 


1500 

I FPS.ik ' 1 " GOTO 141© 


1518 

I FLEH P$ > - 1 T HENP $■* " " a- GOTO 1 5 30 


1528 

tf$wLEFT$X P4* , LEM < F* ) - 1 > 


153© 

R^ ,, SUI ,f sGGTQl 


±548 

I C 1 80> THENRT- l+ " 


1 550 

I FFISC m »30RNDftSC < R* 'J C 193THEH 1 4 1 0 


1560 

l FRSC < m > >21 3 THEN 1 4 1 8 


1578 

I FLEN > =P3GOfO 1 620 


1530 



1590 

F ? RINTB$ ; 


i em 

GDI 01 410 


1610 

IF'LEH < P$ > <P4G0T0 1 4 1 0 


1628 

q|<w>^N 


1630 

WH?Ì+1 a GOTO 13^8 


PEFlQY . 
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<i ; 
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jufc a£cm imuUa, 


irk ! lì ! 

V * - J ■ ir- ;1 : ]f. 

mi r>ru- ikkk ;i'vC 

: H: J G -.- - ■ m f ■ . 

A'S\ , 

jiiLwfykU ohf- smtesHz cì, ! I 


i t 


m 


Esempi di stampa con la stamparne 1515 


Modifiche e aggiunte 
per la versione V1C 20 

250 0?£N3,4; PR2N7#3 , CKKS (E >■??:' KT 7HP.X <iP: ?CKE3S37? ,S = ?>PIfìT 1 sS" 


233 FGSJ" 1 TO i 3 ! HEfìUfi < J > : GOS’JB i 9800 : HEKT J 

383 FORH=0TO2 : FQS J= I70S : 3$ (K . H > < K, H) +CHJW ' -! < J+S*H )+123> ' ‘ 7 ,: , i i , fc 


RéfffiV. 


1 £68 PS I ;M7w 3.. «<fi,J), ■ NE;-:T 
1 233 FRINTtS NEKT 


RtRDV - 



10600 

OR=0tU^ ;1 " ■ P&” !! 11 

: U--R < J / : r 0 SPOSTO ! S 

10062 

T -C/2=lhT< U/2> Ir 

EHU^U^ 3 :i : : GOTO 18001 

16063 

us*u$* !: r* 


10004 

I NT i Jj/2> : HEXT 


L001S 

F0Rr"7Tu 13T£P~1 : 

P.- 1 > ' KEXT 

1 06 1 1 

PDRF“1T07 : 

:(W,P,l>*n f: THEH OP-DP -2 1 < 

10012 

ME*7 ■ B< J>^0? : RET 

UEH 

RErtBV. 
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100 REM ************************ 

119 REM ** ■' C R E fi ' ** 

120 REM ************************ 

130 REM *#PROGRRMMA PER CREARE*** 

140 REM **I CARATTERI SPECIALI** 

150 REM * SCUSATI NEL PROGRAMMA ** 

160 REM **CORSIVO. ** 

170 REM ** VERSI OHE PET. ** 

180 REM ************************ 

180 REM ** BV BELL.U*' GIOVANNI ** 

200 REM ************************ 

210 REM ** TEL. 0362/238580 ** 

£20 REM ************************ 

230 PRINT"3" sDIMAClS) 

240 0PENS,4 # 5«DPEN4,4t0PEH6,4,6iPRINT*6,CHR:»<23> 

250 INPUT" gJLETTERA ; " 

£60 I PLEN <L* > 0 1 THEN250 
270 AsRSCCL*) 

280 NL=1G00+A 
280 PRIHT"3"; 

300 FORK= 1 T07 ; PR I HT " rTTTTTÌ " : NE/T 
3 1 0 FORK= 1 T07 : PR 1 HT “ >OOOC<X| " : MENI 
320 F0RK=lTQ7iPRINT” l I I 1 I I I " :HE/T 
330 IMPUTA* 

340 F Q R K= 0 TO 2 Q - K * 7 sFGRX=8T0S : 2==2+ 1 : FDRV=8T06 

350 I FPEEK < 32768+X+40* V + 40*Q > =3 1 THENA < 2 > «A ( Z > +2t < 6- V > 

360 ME/T : HE/T : NE/ T 
37© PRINT"J" ; 

38© FRI NTNL ” DATA " ; :F0RK*1TG1 S sPRINTRIGHT* <STR* CA'/O > , LENÌ STR* < A<H 
380 PRINTCHR*C44>; :NE/T :PRINT"lf" ;CHR*C5S> "REM" L* SPRINT "RUN" 

400 PRINT"ìg" 

410 FORJ=0TO2 " ìF 0RK=1T06 s A$=H*+CHR* <ACK+6*J>) : NE/T 
42© PRINT#5,A* :F‘RINT#4,CHR* < 254 > : NE/T 
430 CLGSE5 : CL0SE4 
READY . 


Or. 0££-/1 1 
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Guida mercato Commodore 


Prodotto Prezzo 

(IVA esclusa) 


ViC ■ 20 


Home Computer Vie 20 199 000 

Unità di espansione (1020} 295 000 

Modulo di espansione (1023) 135.000 

Cartuccia da 3K di memoria (1210) 66.000 

Cartuccia da 8 K di memoria (1110} 98.000 

Cartuccia da 16K di marnati» filli) 172.000 

Cartuccia Vie rei (4011} 95.000 

Permette di controllare il funzionamento dii allarmi antifurto, porte 
automatiche, telefoni, trasmittenti ed apparecchi similari. 

Vìe «witch (4012} 225.000 

Possono essere collegati fino a 16 VIC 20 con un floppy e unz 

stampante (distanza massima 1500 mtì. 

Interfaccia IEEE 488 (T-l) 175.O0C 

Interfaccia Centronics (T3} 115.000 

RS232-C adapler (I011-A) 75.000 

RS132-C adaptor (101 1B) 75,0OC 

Commodore 64 


CPU 64K RAM (CBM64) 625 000 

C 64 Executive (SX 64) 2.350.000 

Sistema operativo CP/M (CP/M) 125.000 

Consente di programmare il Commodore 64 in linguaggio CP/M, il 
più utilizzato sui Personal Computerà Permette inoltre di accedere 
alla enorme libreria di Software applicativi CP/M. 

Pet spaed {6411} 95.000 


Compilatore basic che aumenta la velocità di esecuzione dei pro- 
grammi di circa 40 volte. 

Accessori per Vie e Commodore 64 


Stampante p lottar a colori (1520) 375.000 

80 caratteri, per linea, 4 colori, alla risoluzione di 0,2 mm per passo. 
Unità stampante (MPS801) 450.000 

Stampa velocemente su carta normale quanto appare sul video: pro- 
grammi, lettere, dati, grafici. 

Unità stampante (1526} 595 000 

Stampante SO colonne, bidirezionale, 60 CPS, spaziatura program- 
mabile, trazione a frizione o a trattore. 

Registratore dedicato (1530) 120.000 

Per memorizzare facilmente programmi e dati su normali cassette 
magnetiche. 

Floppy disk drìva (1541) 585.000 

Veloce unità di memoria di massa ad alta capacità. Può immagaz- 
zinare fino a 170.000 caratteri su ogni singolo disco. 

Monitor monocromatico (J6Q1) 265,000 

A fosfori verdi 12", 


Per giocare 


Comando per giochi (Joyttick) ( 1311 ) 13.500 

Permette di muoversi in tutte le direzioni, di iniziare ] vari giochi di 
movimento e di "sparare". 

Comando a manopola par giochi (Paddfa) (1312) 22.500 

Adatto per ì giochi a 2 persone, esegue movimenti in orizzontale e 
verticale, 

Commodore 4000 


CPU 16K RAM ( CBM4016 ) 1.285.0DO 

18K ROM, 8ASIC 4.0 residente, video 40 colonne per 25 righe, 
tastiera semigrafica. 

CPU 32K RAM (CBM 4032) 1.385.000 

18K ROM, BASIC 4.0 residente, video 40 colonne per 25 righe, 
tastiera semi grafica. 

Commodore 9000 


Doppia CPU 134K RAM (CBM 9000) 2.350.000 

Micro Main Frame Computer a doppia CPU (5502 ■ 6809) compatì- 
bile con tutte le periferiche Commodore deila serie 8000. Include 5 
linguaggi dì programmazione. (COBOL, FORTRAN, TCL PASCAL, 
UCSD PASCAL, APLL 

Commodore 8000 


CPU 32 K RAM (8032 SKj 1,67 5. 000 

18K ROM, Basic 4.0 residente, video orientabile e basculante 00 
colonne per 25 righe, tastiera commerciale separata, 

CPU 96K RAM (3096 SK) 2,15Q.000 

18K ROM, Basic 4.0 residente, video orientabile e basculante 80 
colonne per 25 righe, tastiera commerciale separata. Include sistema 
operativo PM/96. 

Commodore 600 


Indicato per applicazioni industriali, collegamento a strumentazione, 
controllo numerico, ecc. Utilizza monitor in commercio, 

CPU 12BK RAM (610) 2,150.000 

CPU 128K RAM espandi bile inter riamente a 256K e esternamente a 
960 K, interfaccia RS232C, IEEE 480, porta utente a 8 Bit, Compa- 
tibile con tutte le periferiche Commodore della serie professionale. 
CPU 256K RAM (620) 2.550 000 

CPU 256 K RAM espandibili esternamente a 960 K. Caratteristiche 
uguali al Mod. 610. 

Monitor (1601) 285.000 

Monocromatico a fosfori verdi, 12". 

Commodore 700 


CPU 128K RAM (7 10} 2 850,000 

CPU 128K RAM espandibili internamente a 256K ed esternamente a 
960K. Video orientabile e basculante SO colonne per 25 righe. Com- 
patibile con tutte le oeriferiche Commodore delle serie professional i. 
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CPU 25SK RAM (7 20) 

Monitor a colori 14”' enei audio. (17 01) 


3.250.000 Stampante a margherita, 40 CPS r 139 colonne passo pica. 163 co* 
430 000 leone passo ài Ita , bidl r ez tonale , u tl! Izzatìi le anche con carta da boi lo, 
trascinamento a frizione o a trattore. 

Accessori 


Floppy disk dzrvfl (2031) 650-000 

Unità di memoria di massa ad. alta velocità. Capacità 170KB. Drive 
singolo. 

Floppy disk drive (4040) 1,900,000 

Unità di memoria di massa ad aita velocità. Capacità 343 KB. Drive 
doppio. 

Floppy disk drivi (8050) 2,1 25-000 

Drive doppio 1M byte in linea. 

Floppy di* drive (3250 H.P.) 2-450.000 

□rive doppio, doppie faccia, doppia densità 2M byte in linea. 

Floppy disk drive (8250 L-P) 2,600000 

Drive doppio, doppia feccia, doppia densità. 2M byte in linea. 

H.rd disk m60) 6.200.000 

Tecnologia Winchester, ,5M byte in linea. 

Hard dWt (9090) 6.700 000 

Tecnologia Winchester, 7.5M byte in linea. 

Stampanti 

lampante (4023 P) " 625-000 

Bidirezionale ad aghi, 60 CPS, 80 colonne, 

Stampante (MPP 1. 1,195.000 

Stampante ad aghi 150 CPS. 132 colonne, bidirezionale, trascina- 
mento a trattore. 


2.450.000 
in linas. 

2,600000 
in linea. 

6.200.000 


Mkroproewra 32K RAM (MVPET II) 2. 500.000 

Per connettere. In rate fino a 16 CPU RS232, IEEE 488, Centronics, 

Il prezzo Include (configurazione minima): controllar, terminator, 3 
moduli. cavi, cavo IEEÉ/PET tper la versione SK). 

Singolo modula addizione!*: - 325.000 

1 modulo 
\ cavo 6 piedi. 

Nuovo si rum» operativo (PM 96) 95.000 k 

Per 80965K o per B032SK con B * 1 oppure con B - 2. Può gestire 
fino a 16 programmi residenti simultaneamente in memoria. Oa a 
disposizione 26 K per le variabili e 53 K per i programmi . Potenzia 
inoltre il Basic con altri comandi. 

64K RAM ( B-l } 575.000 

Scheda di ampliamento memoria par 8032 a nuovo sistemo opera- 
tivo ' PM 96". 

WfMAt m-2) 1.450.000 

Incrementa la memoria interna di 64K RAM e permetta l'uso di 
tulli I programmi CP/M. 8 bit disponibili. Compatibile con la serie 
3000/4000/8000. 

Scheda ad aita risoluzione grafica (B-3) 720 000 

Compatibile ai sistemi della sarie 8000. 

Cavo PET7IEEE 488 (C-ì ) 85.000 

Cavo IEEE 488/IEEE (02} 95,000 

Accoppiatore acustico (8010) .585000 

300 baud/sec, 



“Commodore Shop” MILANO 

massima professionalità su tutti i prodotti 
2 punti vendita in città 



L’UFFICIO 2000 - Via Ripamonti, 21 3 -Milano 
Tel. 5696570 /5696S73 


SOFTWARE 

Una ricca e selezionata biblioteca 
di programmi: 

contabilità aziendale, gestione 
negozi, fatturazione, 
magazzino, ventilazione iva, 
a ì legati, gestione archivi dati, 
ord processing, mailing, list, 
tutto sul l'energia civile 
ecc„, ecc... ecc... 

HARDWARE 

Riparazioni 
Applicazioni speciali 
Permute & occasioni 

M ATTENZIONE 1! 
TOTOCALCIO SYSTEM 

Un programma di altissimo livello , 
completamente automatico 
e semplice da usare 
pr un quasi sicuro 13 

“THE LAST ONE” 

Un programma che permette 
anche ai meno esperti di costruire 
procedure complesse 
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memorie magnetiche por computer. 


IMI 



XipEX 


primo dischetto 
di precisione 


- Formulazione ossido ad alta 
densità lineare 

- Coercitìvità fino a oltre 
600 oersted 

- Clipphing level al 65% 

- Densità lino a 18000 B P I 

- Capacità fino a 5 MB 

- Disponibili i nuovi dischetti da 3,5" 


Si hchl. 

Ihc magnetlc International (Ine 



via passeroni 6 - 20135 miiano corso di porta nuova 34 - £0121 milano 

tei (02) 577477 - 598353 - telex 340216 lei (02) 66 T 491 - 667841 


